/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / FROMUTS / BAS2TEXT / !BasTxt_!RunImageO

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e f4 20 3e 20 | 3c 42 61 73 54 78 74 24 |..... > |<BasTxt$|
|00000010| 44 69 72 3e 2e 21 52 75 | 6e 49 6d 61 67 65 0d 00 |Dir>.!Ru|nImage..|
|00000020| 14 05 f4 0d 00 1e 1f 76 | 65 72 73 69 6f 6e 24 3d |.......v|ersion$=|
|00000030| 22 30 2e 38 34 20 28 31 | 36 2d 53 65 70 2d 38 39 |"0.84 (1|6-Sep-89|
|00000040| 29 22 0d 00 28 0f f2 69 | 6e 69 74 69 61 6c 69 73 |)"..(..i|nitialis|
|00000050| 65 0d 00 32 0e ee 20 85 | 20 f2 65 72 72 6f 72 0d |e..2.. .| .error.|
|00000060| 00 3c 05 f5 0d 00 46 1d | 20 c8 99 22 57 69 6d 70 |.<....F.| .."Wimp|
|00000070| 5f 50 6f 6c 6c 22 2c 31 | 2c 71 31 25 20 b8 20 72 |_Poll",1|,q1% . r|
|00000080| 25 0d 00 50 0c 20 c8 8e | 20 72 25 20 ca 0d 00 5a |%..P. ..| r% ...Z|
|00000090| 26 20 c9 20 32 20 20 20 | 20 3a 20 c8 99 22 57 69 |& . 2   | : .."Wi|
|000000a0| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|000000b0| 71 31 25 0d 00 64 27 20 | c9 20 33 20 20 20 20 3a |q1%..d' |. 3    :|
|000000c0| 20 c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 | .."Wimp|_CloseWi|
|000000d0| 6e 64 6f 77 22 2c 2c 71 | 31 25 0d 00 6e 29 20 20 |ndow",,q|1%..n)  |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 e7 21 71 31 25 |        |   .!q1%|
|000000f0| 3d 73 61 76 65 25 20 f2 | 69 6e 69 74 5f 73 79 73 |=save% .|init_sys|
|00000100| 74 65 6d 0d 00 78 19 20 | c9 20 36 20 20 20 20 3a |tem..x. |. 6    :|
|00000110| 20 f2 6d 6f 75 73 65 63 | 6c 69 63 6b 0d 00 82 19 | .mousec|lick....|
|00000120| 20 c9 20 37 20 20 20 20 | 3a 20 f2 64 65 63 6f 64 | . 7    |: .decod|
|00000130| 65 64 72 61 67 0d 00 8c | 17 20 c9 20 38 20 20 20 |edrag...|. . 8   |
|00000140| 20 3a 20 f2 6b 65 79 70 | 72 65 73 73 0d 00 96 19 | : .keyp|ress....|
|00000150| 20 c9 20 39 20 20 20 20 | 3a 20 f2 6d 65 6e 75 73 | . 9    |: .menus|
|00000160| 65 6c 65 63 74 0d 00 a0 | 1a 20 c9 20 31 37 2c 31 |elect...|. . 17,1|
|00000170| 38 3a 20 f2 72 65 63 65 | 69 76 65 28 72 25 29 0d |8: .rece|ive(r%).|
|00000180| 00 aa 12 20 c9 20 31 39 | 20 20 20 3a 20 f2 61 63 |... . 19|   : .ac|
|00000190| 6b 0d 00 b4 05 cb 0d 00 | be 07 fd 20 a3 0d 00 c8 |k.......|... ....|
|000001a0| 05 e0 0d 00 d2 05 3a 0d | 00 dc 10 dd f2 69 6e 69 |......:.|.....ini|
|000001b0| 74 69 61 6c 69 73 65 0d | 00 e6 24 f4 20 2a 2a 2a |tialise.|..$. ***|
|000001c0| 2a 2a 20 64 65 63 6c 61 | 72 65 20 64 61 74 61 20 |** decla|re data |
|000001d0| 62 6c 6f 63 6b 73 20 75 | 73 65 64 0d 00 f0 3c f4 |blocks u|sed...<.|
|000001e0| 20 31 29 20 77 6f 72 6b | 73 70 61 63 65 20 66 6f | 1) work|space fo|
|000001f0| 72 20 69 6e 64 69 72 65 | 63 74 65 64 20 69 63 6f |r indire|cted ico|
|00000200| 6e 73 20 69 6e 20 77 69 | 6e 64 6f 77 73 20 26 20 |ns in wi|ndows & |
|00000210| 77 69 6e 64 6f 77 73 0d | 00 fa 2f 6d 61 78 77 73 |windows.|../maxws|
|00000220| 25 3d 26 31 34 30 30 3a | de 20 77 73 25 20 6d 61 |%=&1400:|. ws% ma|
|00000230| 78 77 73 25 3a 77 73 65 | 6e 64 25 3d 77 73 25 2b |xws%:wse|nd%=ws%+|
|00000240| 6d 61 78 77 73 25 0d 01 | 04 25 f4 20 32 29 20 64 |maxws%..|.%. 2) d|
|00000250| 61 74 61 20 62 6c 6f 63 | 6b 20 66 6f 72 20 77 69 |ata bloc|k for wi|
|00000260| 6d 70 20 6d 65 73 73 61 | 67 65 73 0d 01 0e 0d de |mp messa|ges.....|
|00000270| 20 71 31 25 20 32 35 36 | 0d 01 18 2c f4 20 33 29 | q1% 256|...,. 3)|
|00000280| 20 64 61 74 61 20 62 6c | 6f 63 6b 20 66 6f 72 20 | data bl|ock for |
|00000290| 67 65 6e 65 72 61 6c 20 | 70 75 72 70 6f 73 65 20 |general |purpose |
|000002a0| 75 73 65 73 0d 01 22 0e | de 20 71 32 25 20 31 30 |uses..".|. q2% 10|
|000002b0| 32 34 0d 01 2c 26 f4 20 | 34 29 20 64 61 74 61 20 |24..,&. |4) data |
|000002c0| 62 6c 6f 63 6b 20 66 6f | 72 20 6d 65 6e 75 20 73 |block fo|r menu s|
|000002d0| 74 72 75 63 74 75 72 65 | 0d 01 36 30 de 20 6d 65 |tructure|..60. me|
|000002e0| 6e 75 66 72 65 65 25 20 | 26 33 37 30 3a 6d 65 6e |nufree% |&370:men|
|000002f0| 75 65 6e 64 25 20 3d 20 | 6d 65 6e 75 66 72 65 65 |uend% = |menufree|
|00000300| 25 20 2b 20 26 33 37 30 | 0d 01 40 28 f4 20 2a 2a |% + &370|..@(. **|
|00000310| 2a 2a 2a 20 69 6e 69 74 | 69 61 6c 69 73 65 20 70 |*** init|ialise p|
|00000320| 72 6f 67 72 61 6d 20 61 | 73 20 61 20 74 61 73 6b |rogram a|s a task|
|00000330| 0d 01 4a 2e c8 99 22 57 | 69 6d 70 5f 49 6e 69 74 |..J..."W|imp_Init|
|00000340| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 26 34 42 35 |ialise",|200,&4B5|
|00000350| 33 34 31 35 34 2c 22 42 | 61 73 54 78 74 22 0d 01 |34154,"B|asTxt"..|
|00000360| 54 20 f4 20 2a 2a 2a 2a | 2a 20 67 65 74 20 77 69 |T . ****|* get wi|
|00000370| 6e 64 6f 77 20 74 65 6d | 70 6c 61 74 65 73 0d 01 |ndow tem|plates..|
|00000380| 5e 33 c8 99 22 57 69 6d | 70 5f 4f 70 65 6e 54 65 |^3.."Wim|p_OpenTe|
|00000390| 6d 70 6c 61 74 65 22 2c | 2c 22 3c 42 61 73 54 78 |mplate",|,"<BasTx|
|000003a0| 74 24 44 69 72 3e 2e 54 | 65 6d 70 6c 61 74 65 73 |t$Dir>.T|emplates|
|000003b0| 22 0d 01 68 1e f4 20 2a | 2a 2a 2a 2a 20 69 6e 66 |"..h.. *|**** inf|
|000003c0| 6f 72 6d 61 74 69 6f 6e | 20 77 69 6e 64 6f 77 0d |ormation| window.|
|000003d0| 01 72 3d c8 99 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.r=.."Wi|mp_LoadT|
|000003e0| 65 6d 70 6c 61 74 65 22 | 2c 2c 71 32 25 2c 77 73 |emplate"|,,q2%,ws|
|000003f0| 25 2c 77 73 65 6e 64 25 | 2c 2d 31 2c 22 69 6e 66 |%,wsend%|,-1,"inf|
|00000400| 6f 22 2c 30 20 b8 20 2c | 2c 77 73 25 0d 01 7c 1e |o",0 . ,|,ws%..|.|
|00000410| 24 28 71 32 25 21 28 38 | 38 2b 39 36 2b 32 30 29 |$(q2%!(8|8+96+20)|
|00000420| 29 3d 76 65 72 73 69 6f | 6e 24 0d 01 86 26 c8 99 |)=versio|n$...&..|
|00000430| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000440| 6f 77 22 2c 2c 71 32 25 | 20 b8 20 69 6e 66 6f 25 |ow",,q2%| . info%|
|00000450| 0d 01 90 23 f4 20 2a 2a | 2a 2a 2a 20 73 61 76 65 |...#. **|*** save|
|00000460| 20 61 20 74 65 78 74 20 | 66 69 6c 65 20 77 69 6e | a text |file win|
|00000470| 64 6f 77 0d 01 9a 40 c8 | 99 22 57 69 6d 70 5f 4c |dow...@.|."Wimp_L|
|00000480| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 71 32 |oadTempl|ate",,q2|
|00000490| 25 2c 77 73 25 2c 77 73 | 65 6e 64 25 2c 2d 31 2c |%,ws%,ws|end%,-1,|
|000004a0| 22 73 61 76 65 66 66 66 | 22 2c 30 20 b8 20 2c 2c |"savefff|",0 . ,,|
|000004b0| 77 73 25 0d 01 a4 1f 66 | 69 6c 65 6e 61 6d 65 66 |ws%....f|ilenamef|
|000004c0| 66 66 25 3d 71 32 25 21 | 28 38 38 2b 36 34 2b 32 |ff%=q2%!|(88+64+2|
|000004d0| 30 29 0d 01 ae 29 c8 99 | 22 57 69 6d 70 5f 43 72 |0)...)..|"Wimp_Cr|
|000004e0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 32 25 |eateWind|ow",,q2%|
|000004f0| 20 b8 20 73 61 76 65 66 | 66 66 25 0d 01 b8 24 f4 | . savef|ff%...$.|
|00000500| 20 2a 2a 2a 2a 2a 20 73 | 61 76 65 20 61 20 42 41 | ***** s|ave a BA|
|00000510| 53 49 43 20 66 69 6c 65 | 20 77 69 6e 64 6f 77 0d |SIC file| window.|
|00000520| 01 c2 40 c8 99 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |..@.."Wi|mp_LoadT|
|00000530| 65 6d 70 6c 61 74 65 22 | 2c 2c 71 32 25 2c 77 73 |emplate"|,,q2%,ws|
|00000540| 25 2c 77 73 65 6e 64 25 | 2c 2d 31 2c 22 73 61 76 |%,wsend%|,-1,"sav|
|00000550| 65 66 66 62 22 2c 30 20 | b8 20 2c 2c 77 73 25 0d |effb",0 |. ,,ws%.|
|00000560| 01 cc 1f 66 69 6c 65 6e | 61 6d 65 66 66 62 25 3d |...filen|ameffb%=|
|00000570| 71 32 25 21 28 38 38 2b | 36 34 2b 32 30 29 0d 01 |q2%!(88+|64+20)..|
|00000580| d6 29 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |.).."Wim|p_Create|
|00000590| 57 69 6e 64 6f 77 22 2c | 2c 71 32 25 20 b8 20 73 |Window",|,q2% . s|
|000005a0| 61 76 65 66 66 62 25 0d | 01 e0 1a f4 20 2a 2a 2a |aveffb%.|.... ***|
|000005b0| 2a 2a 20 6f 70 74 69 6f | 6e 73 20 77 69 6e 64 6f |** optio|ns windo|
|000005c0| 77 0d 01 ea 40 c8 99 22 | 57 69 6d 70 5f 4c 6f 61 |w...@.."|Wimp_Loa|
|000005d0| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 71 32 25 2c |dTemplat|e",,q2%,|
|000005e0| 77 73 25 2c 77 73 65 6e | 64 25 2c 2d 31 2c 22 6f |ws%,wsen|d%,-1,"o|
|000005f0| 70 74 69 6f 6e 73 22 2c | 30 20 b8 20 2c 2c 77 73 |ptions",|0 . ,,ws|
|00000600| 25 0d 01 f4 29 c8 99 22 | 57 69 6d 70 5f 43 72 65 |%...).."|Wimp_Cre|
|00000610| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 71 32 25 20 |ateWindo|w",,q2% |
|00000620| b8 20 6f 70 74 69 6f 6e | 73 25 0d 01 fe 1a c8 99 |. option|s%......|
|00000630| 22 57 69 6d 70 5f 43 6c | 6f 73 65 54 65 6d 70 6c |"Wimp_Cl|oseTempl|
|00000640| 61 74 65 22 0d 02 08 1b | f4 20 2a 2a 2a 2a 2a 20 |ate"....|. ***** |
|00000650| 63 72 65 61 74 65 20 74 | 68 65 20 6d 65 6e 75 0d |create t|he menu.|
|00000660| 02 12 15 6d 61 69 6e 6d | 65 6e 75 25 3d a4 63 72 |...mainm|enu%=.cr|
|00000670| 6d 65 6e 75 0d 02 1c 2f | 20 dc 20 22 23 42 61 73 |menu.../| . "#Bas|
|00000680| 54 78 74 2c 49 6e 66 6f | 2c 4f 70 74 69 6f 6e 73 |Txt,Info|,Options|
|00000690| 2c 53 61 76 65 20 6f 70 | 74 69 6f 6e 73 2c 51 75 |,Save op|tions,Qu|
|000006a0| 69 74 22 0d 02 26 24 20 | f2 61 74 74 61 63 68 5f |it"..&$ |.attach_|
|000006b0| 6d 65 6e 75 28 6d 61 69 | 6e 6d 65 6e 75 25 2c 30 |menu(mai|nmenu%,0|
|000006c0| 2c 69 6e 66 6f 25 29 0d | 02 30 27 20 f2 61 74 74 |,info%).|.0' .att|
|000006d0| 61 63 68 5f 6d 65 6e 75 | 28 6d 61 69 6e 6d 65 6e |ach_menu|(mainmen|
|000006e0| 75 25 2c 31 2c 6f 70 74 | 69 6f 6e 73 25 29 0d 02 |u%,1,opt|ions%)..|
|000006f0| 3a 2b f4 20 2a 2a 2a 2a | 2a 20 69 6e 69 74 69 61 |:+. ****|* initia|
|00000700| 6c 69 73 65 20 74 68 65 | 20 67 6c 6f 62 61 6c 20 |lise the| global |
|00000710| 76 61 72 69 61 62 6c 65 | 73 0d 02 44 10 f2 69 6e |variable|s..D..in|
|00000720| 69 74 5f 73 79 73 74 65 | 6d 0d 02 4e 0e 73 61 76 |it_syste|m..N.sav|
|00000730| 65 72 65 66 25 3d 30 0d | 02 58 39 73 61 76 65 25 |eref%=0.|.X9save%|
|00000740| 3d 73 61 76 65 66 66 62 | 25 3a f4 20 67 6c 6f 62 |=saveffb|%:. glob|
|00000750| 61 6c 20 72 65 66 65 72 | 65 6e 63 65 20 74 6f 20 |al refer|ence to |
|00000760| 73 61 76 65 20 77 69 6e | 64 6f 77 20 75 73 65 64 |save win|dow used|
|00000770| 0d 02 62 45 66 69 6c 65 | 6e 61 6d 65 25 3d 66 69 |..bEfile|name%=fi|
|00000780| 6c 65 6e 61 6d 65 66 66 | 62 25 3a f4 20 67 6c 6f |lenameff|b%:. glo|
|00000790| 62 61 6c 20 72 65 66 65 | 72 65 6e 63 65 20 74 6f |bal refe|rence to|
|000007a0| 20 66 69 6c 65 6e 61 6d | 65 20 62 75 66 66 65 72 | filenam|e buffer|
|000007b0| 20 75 73 65 64 0d 02 6c | 11 65 72 72 6f 72 5f 66 | used..l|.error_f|
|000007c0| 6c 61 67 25 3d 33 0d 02 | 76 10 f2 67 65 74 6d 6f |lag%=3..|v..getmo|
|000007d0| 64 65 69 6e 66 6f 0d 02 | 80 39 f4 20 2a 2a 2a 2a |deinfo..|.9. ****|
|000007e0| 2a 20 69 6e 69 74 69 61 | 6c 69 73 65 20 74 68 65 |* initia|lise the|
|000007f0| 20 66 6c 61 67 73 20 69 | 66 20 61 20 63 68 6f 69 | flags i|f a choi|
|00000800| 63 65 73 20 66 69 6c 65 | 20 65 78 69 73 74 73 0d |ces file| exists.|
|00000810| 02 8a 21 63 25 3d 8e 28 | 22 3c 42 61 73 54 78 74 |..!c%=.(|"<BasTxt|
|00000820| 24 44 69 72 3e 2e 21 43 | 68 6f 69 63 65 73 22 29 |$Dir>.!C|hoices")|
|00000830| 0d 02 94 0c e7 63 25 3c | 3e 30 20 8c 0d 02 9e 2b |.....c%<|>0 ....+|
|00000840| 20 21 71 31 25 3d 6f 70 | 74 69 6f 6e 73 25 3a 71 | !q1%=op|tions%:q|
|00000850| 31 25 21 38 3d 31 3c 3c | 32 31 3a 71 31 25 21 31 |1%!8=1<<|21:q1%!1|
|00000860| 32 3d 31 3c 3c 32 31 0d | 02 a8 21 20 64 25 3d 9a |2=1<<21.|..! d%=.|
|00000870| 23 63 25 3a f4 20 73 74 | 72 69 70 20 6c 69 6e 65 |#c%:. st|rip line|
|00000880| 20 6e 75 6d 62 65 72 73 | 0d 02 b2 2b 20 e7 64 25 | numbers|...+ .d%|
|00000890| 20 71 31 25 21 34 3d 32 | 3a c8 99 22 57 69 6d 70 | q1%!4=2|:.."Wimp|
|000008a0| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|000008b0| 71 31 25 0d 02 bc 22 20 | 64 25 3d 9a 23 63 25 3a |q1%..." |d%=.#c%:|
|000008c0| f4 20 73 65 6e 64 20 74 | 65 78 74 20 74 6f 20 65 |. send t|ext to e|
|000008d0| 64 69 74 6f 72 0d 02 c6 | 2b 20 e7 64 25 20 71 31 |ditor...|+ .d% q1|
|000008e0| 25 21 34 3d 33 3a c8 99 | 22 57 69 6d 70 5f 53 65 |%!4=3:..|"Wimp_Se|
|000008f0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 31 25 |tIconSta|te",,q1%|
|00000900| 0d 02 d0 1e 20 64 25 3d | 9a 23 63 25 3a f4 20 66 |.... d%=|.#c%:. f|
|00000910| 61 73 74 20 63 6f 6e 76 | 65 72 73 69 6f 6e 0d 02 |ast conv|ersion..|
|00000920| da 2b 20 e7 64 25 20 71 | 31 25 21 34 3d 34 3a c8 |.+ .d% q|1%!4=4:.|
|00000930| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|00000940| 61 74 65 22 2c 2c 71 31 | 25 0d 02 e4 2b 20 64 25 |ate",,q1|%...+ d%|
|00000950| 3d 9a 23 63 25 3a f4 20 | 73 61 76 65 20 70 72 6f |=.#c%:. |save pro|
|00000960| 67 72 61 6d 20 69 66 20 | 6e 61 6d 65 20 70 72 65 |gram if |name pre|
|00000970| 73 65 6e 74 0d 02 ee 2b | 20 e7 64 25 20 71 31 25 |sent...+| .d% q1%|
|00000980| 21 34 3d 37 3a c8 99 22 | 57 69 6d 70 5f 53 65 74 |!4=7:.."|Wimp_Set|
|00000990| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 31 25 0d |IconStat|e",,q1%.|
|000009a0| 02 f8 09 20 d9 23 63 25 | 0d 03 02 05 cd 0d 03 0c |... .#c%|........|
|000009b0| 30 f4 20 2a 2a 2a 2a 2a | 20 61 6e 64 20 69 6e 73 |0. *****| and ins|
|000009c0| 74 61 6c 6c 20 74 68 65 | 20 69 63 6f 6e 20 6f 6e |tall the| icon on|
|000009d0| 20 74 68 65 20 69 63 6f | 6e 20 62 61 72 0d 03 16 | the ico|n bar...|
|000009e0| 3c 21 71 31 25 3d 2d 31 | 3a 71 31 25 21 34 3d 30 |<!q1%=-1|:q1%!4=0|
|000009f0| 3a 71 31 25 21 38 3d 30 | 3a 71 31 25 21 31 32 3d |:q1%!8=0|:q1%!12=|
|00000a00| 36 39 3a 71 31 25 21 31 | 36 3d 36 38 3a 71 31 25 |69:q1%!1|6=68:q1%|
|00000a10| 21 32 30 3d 26 33 30 30 | 32 0d 03 20 36 24 28 71 |!20=&300|2.. 6$(q|
|00000a20| 31 25 2b 32 34 29 3d 22 | 21 62 61 73 74 78 74 22 |1%+24)="|!bastxt"|
|00000a30| 3a c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |:.."Wimp|_CreateI|
|00000a40| 63 6f 6e 22 2c 2c 71 31 | 25 20 b8 20 69 63 25 0d |con",,q1|% . ic%.|
|00000a50| 03 2a 0e f2 66 69 6e 64 | 5f 65 64 69 74 0d 03 34 |.*..find|_edit..4|
|00000a60| 05 e1 0d 03 3e 05 3a 0d | 03 48 11 dd f2 69 6e 69 |....>.:.|.H...ini|
|00000a70| 74 5f 73 79 73 74 65 6d | 0d 03 52 20 2a 25 52 65 |t_system|..R *%Re|
|00000a80| 6d 6f 76 65 20 3c 42 61 | 73 54 78 74 24 44 69 72 |move <Ba|sTxt$Dir|
|00000a90| 3e 2e 53 63 72 69 70 74 | 0d 03 5c 20 2a 25 52 65 |>.Script|..\ *%Re|
|00000aa0| 6d 6f 76 65 20 3c 42 61 | 73 54 78 74 24 44 69 72 |move <Ba|sTxt$Dir|
|00000ab0| 3e 2e 4f 75 74 70 75 74 | 0d 03 66 20 2a 25 52 65 |>.Output|..f *%Re|
|00000ac0| 6d 6f 76 65 20 3c 42 61 | 73 54 78 74 24 44 69 72 |move <Ba|sTxt$Dir|
|00000ad0| 3e 2e 42 61 73 54 78 74 | 0d 03 70 05 e1 0d 03 7a |>.BasTxt|..p....z|
|00000ae0| 05 3a 0d 03 84 11 dd f2 | 67 65 74 6d 6f 64 65 69 |.:......|getmodei|
|00000af0| 6e 66 6f 0d 03 8e 0d 71 | 31 25 21 30 20 3d 20 34 |nfo....q|1%!0 = 4|
|00000b00| 0d 03 98 0d 71 31 25 21 | 34 20 3d 20 35 0d 03 a2 |....q1%!|4 = 5...|
|00000b10| 0e 71 31 25 21 38 20 3d | 20 31 31 0d 03 ac 0e 71 |.q1%!8 =| 11....q|
|00000b20| 31 25 21 31 32 3d 20 31 | 32 0d 03 b6 0e 71 31 25 |1%!12= 1|2....q1%|
|00000b30| 21 31 36 3d 20 2d 31 0d | 03 c0 26 c8 99 22 4f 53 |!16= -1.|..&.."OS|
|00000b40| 5f 52 65 61 64 56 64 75 | 56 61 72 69 61 62 6c 65 |_ReadVdu|Variable|
|00000b50| 73 22 2c 71 31 25 2c 71 | 31 25 2b 32 30 0d 03 ca |s",q1%,q|1%+20...|
|00000b60| 13 64 78 25 3d 31 3c 3c | 28 71 31 25 21 32 30 29 |.dx%=1<<|(q1%!20)|
|00000b70| 0d 03 d4 13 64 79 25 3d | 31 3c 3c 28 71 31 25 21 |....dy%=|1<<(q1%!|
|00000b80| 32 34 29 0d 03 de 19 73 | 63 72 78 31 25 3d 28 71 |24)....s|crx1%=(q|
|00000b90| 31 25 21 32 38 2b 31 29 | 2a 64 78 25 0d 03 e8 19 |1%!28+1)|*dx%....|
|00000ba0| 73 63 72 79 31 25 3d 28 | 71 31 25 21 33 32 2b 31 |scry1%=(|q1%!32+1|
|00000bb0| 29 2a 64 79 25 0d 03 f2 | 05 e1 0d 03 fc 05 3a 0d |)*dy%...|......:.|
|00000bc0| 04 06 0f dd f2 66 69 6e | 64 5f 65 64 69 74 0d 04 |.....fin|d_edit..|
|00000bd0| 10 11 ea 20 69 25 2c 74 | 25 2c 72 25 2c 66 25 0d |... i%,t|%,r%,f%.|
|00000be0| 04 1a 13 65 64 69 74 5f | 74 61 73 6b 69 64 25 3d |...edit_|taskid%=|
|00000bf0| 2d 31 0d 04 24 11 e3 69 | 25 3d 30 20 b8 20 69 63 |-1..$..i|%=0 . ic|
|00000c00| 25 2d 31 0d 04 2e 30 20 | 21 71 31 25 3d 2d 32 3a |%-1...0 |!q1%=-2:|
|00000c10| 71 31 25 21 34 3d 69 25 | 3a c8 99 22 57 69 6d 70 |q1%!4=i%|:.."Wimp|
|00000c20| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00000c30| 71 31 25 0d 04 38 1a 20 | e7 28 71 31 25 21 32 34 |q1%..8. |.(q1%!24|
|00000c40| 20 80 20 31 3c 3c 32 33 | 29 3d 30 20 8c 0d 04 42 | . 1<<23|)=0 ...B|
|00000c50| 0e 20 20 71 31 25 21 31 | 32 3d 30 0d 04 4c 2e 20 |.  q1%!1|2=0..L. |
|00000c60| 20 c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 | .."Wimp|_SendMes|
|00000c70| 73 61 67 65 22 2c 31 39 | 2c 71 31 25 2c 2d 32 2c |sage",19|,q1%,-2,|
|00000c80| 69 25 20 b8 20 2c 2c 74 | 25 0d 04 56 2e 20 20 21 |i% . ,,t|%..V.  !|
|00000c90| 71 31 25 3d 32 34 3a 71 | 31 25 21 31 32 3d 30 3a |q1%=24:q|1%!12=0:|
|00000ca0| 71 31 25 21 31 36 3d 26 | 34 30 30 43 36 3a 71 31 |q1%!16=&|400C6:q1|
|00000cb0| 25 21 32 30 3d 74 25 0d | 04 60 23 20 20 c8 99 22 |%!20=t%.|.`#  .."|
|00000cc0| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00000cd0| 22 2c 31 38 2c 71 31 25 | 2c 30 0d 04 6a 0a 20 20 |",18,q1%|,0..j.  |
|00000ce0| 66 25 3d a3 0d 04 74 07 | 20 20 f5 0d 04 7e 1f 20 |f%=...t.|  ...~. |
|00000cf0| 20 20 c8 99 22 57 69 6d | 70 5f 50 6f 6c 6c 22 2c |  .."Wim|p_Poll",|
|00000d00| 31 2c 71 31 25 20 b8 20 | 72 25 0d 04 88 17 20 20 |1,q1% . |r%....  |
|00000d10| 20 e7 72 25 3d 31 37 20 | 84 20 72 25 3d 31 38 20 | .r%=17 |. r%=18 |
|00000d20| 8c 0d 04 92 1b 20 20 20 | 20 e7 71 31 25 21 31 36 |.....   | .q1%!16|
|00000d30| 3d 26 34 30 30 43 37 20 | 66 25 3d b9 0d 04 9c 14 |=&400C7 |f%=.....|
|00000d40| 20 20 20 20 f2 72 65 63 | 65 69 76 65 28 72 25 29 |    .rec|eive(r%)|
|00000d50| 0d 04 a6 08 20 20 20 cd | 0d 04 b0 0a 20 20 fd 20 |....   .|....  . |
|00000d60| 66 25 0d 04 ba 20 20 20 | e7 65 64 69 74 5f 74 61 |f%...   |.edit_ta|
|00000d70| 73 6b 69 64 25 3c 3e 2d | 31 20 69 25 3d 69 63 25 |skid%<>-|1 i%=ic%|
|00000d80| 2d 31 0d 04 c4 06 20 cd | 0d 04 ce 05 ed 0d 04 d8 |-1.... .|........|
|00000d90| 05 e1 0d 04 e2 05 3a 0d | 04 ec 10 dd f2 6d 6f 75 |......:.|.....mou|
|00000da0| 73 65 63 6c 69 63 6b 0d | 04 f6 0d c8 8e 71 31 25 |seclick.|.....q1%|
|00000db0| 21 38 20 ca 0d 05 00 37 | c9 32 3a 20 20 20 e7 71 |!8 ....7|.2:   .q|
|00000dc0| 31 25 21 31 32 3d 2d 32 | 20 f2 64 6f 6d 65 6e 75 |1%!12=-2| .domenu|
|00000dd0| 28 6d 61 69 6e 6d 65 6e | 75 25 2c 21 71 31 25 2d |(mainmen|u%,!q1%-|
|00000de0| 36 34 2c 39 36 2b 34 2a | 34 34 29 0d 05 0a 30 c9 |64,96+4*|44)...0.|
|00000df0| 34 3a 20 20 20 e7 71 31 | 25 21 31 32 3d 73 61 76 |4:   .q1|%!12=sav|
|00000e00| 65 25 80 71 31 25 21 31 | 36 3d 30 20 f2 73 61 76 |e%.q1%!1|6=0 .sav|
|00000e10| 65 66 69 6c 65 28 a3 2c | 22 22 29 0d 05 14 35 c9 |efile(.,|"")...5.|
|00000e20| 26 34 30 3a 20 e7 71 31 | 25 21 31 32 3d 73 61 76 |&40: .q1|%!12=sav|
|00000e30| 65 25 20 f2 64 72 61 67 | 69 63 6f 6e 28 21 71 31 |e% .drag|icon(!q1|
|00000e40| 25 2c 71 31 25 21 34 2c | 73 61 76 65 25 2c 33 29 |%,q1%!4,|save%,3)|
|00000e50| 0d 05 1e 05 cb 0d 05 28 | 05 e1 0d 05 32 05 3a 0d |.......(|....2.:.|
|00000e60| 05 3c 2d dd f2 64 72 61 | 67 69 63 6f 6e 28 6d 6f |.<-..dra|gicon(mo|
|00000e70| 75 73 65 78 25 2c 6d 6f | 75 73 65 79 25 2c 68 61 |usex%,mo|usey%,ha|
|00000e80| 6e 64 6c 65 25 2c 69 63 | 6f 6e 25 29 0d 05 46 21 |ndle%,ic|on%)..F!|
|00000e90| ea 20 62 78 25 2c 62 79 | 25 2c 69 78 30 25 2c 69 |. bx%,by|%,ix0%,i|
|00000ea0| 78 31 25 2c 69 79 30 25 | 2c 69 79 31 25 0d 05 50 |x1%,iy0%|,iy1%..P|
|00000eb0| 15 73 61 76 65 77 69 6e | 64 25 3d 68 61 6e 64 6c |.savewin|d%=handl|
|00000ec0| 65 25 0d 05 5a 2d 21 71 | 31 25 3d 68 61 6e 64 6c |e%..Z-!q|1%=handl|
|00000ed0| 65 25 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 57 69 |e%:.."Wi|mp_GetWi|
|00000ee0| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 71 31 25 0d |ndowStat|e",,q1%.|
|00000ef0| 05 64 16 62 78 25 3d 71 | 31 25 21 34 20 2d 20 71 |.d.bx%=q|1%!4 - q|
|00000f00| 31 25 21 32 30 0d 05 6e | 17 62 79 25 3d 71 31 25 |1%!20..n|.by%=q1%|
|00000f10| 21 31 36 20 2d 20 71 31 | 25 21 32 34 0d 05 78 37 |!16 - q1|%!24..x7|
|00000f20| 21 71 31 25 3d 68 61 6e | 64 6c 65 25 3a 71 31 25 |!q1%=han|dle%:q1%|
|00000f30| 21 34 3d 69 63 6f 6e 25 | 3a c8 99 22 57 69 6d 70 |!4=icon%|:.."Wimp|
|00000f40| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00000f50| 71 31 25 0d 05 82 0e 69 | 78 30 25 3d 71 31 25 21 |q1%....i|x0%=q1%!|
|00000f60| 38 0d 05 8c 0f 69 79 30 | 25 3d 71 31 25 21 31 32 |8....iy0|%=q1%!12|
|00000f70| 0d 05 96 0f 69 78 31 25 | 3d 71 31 25 21 31 36 0d |....ix1%|=q1%!16.|
|00000f80| 05 a0 0f 69 79 31 25 3d | 71 31 25 21 32 30 0d 05 |...iy1%=|q1%!20..|
|00000f90| aa 10 21 71 31 25 3d 68 | 61 6e 64 6c 65 25 0d 05 |..!q1%=h|andle%..|
|00000fa0| b4 0b 71 31 25 21 34 3d | 35 0d 05 be 12 71 31 25 |..q1%!4=|5....q1%|
|00000fb0| 21 38 3d 62 78 25 2b 69 | 78 30 25 0d 05 c8 13 71 |!8=bx%+i|x0%....q|
|00000fc0| 31 25 21 31 32 3d 62 79 | 25 2b 69 79 30 25 0d 05 |1%!12=by|%+iy0%..|
|00000fd0| d2 13 71 31 25 21 31 36 | 3d 62 78 25 2b 69 78 31 |..q1%!16|=bx%+ix1|
|00000fe0| 25 0d 05 dc 13 71 31 25 | 21 32 30 3d 62 79 25 2b |%....q1%|!20=by%+|
|00000ff0| 69 79 31 25 0d 05 e6 18 | 71 31 25 21 32 34 3d 71 |iy1%....|q1%!24=q|
|00001000| 31 25 21 38 2d 6d 6f 75 | 73 65 78 25 0d 05 f0 19 |1%!8-mou|sex%....|
|00001010| 71 31 25 21 32 38 3d 71 | 31 25 21 31 32 2d 6d 6f |q1%!28=q|1%!12-mo|
|00001020| 75 73 65 79 25 0d 05 fa | 20 71 31 25 21 33 32 3d |usey%...| q1%!32=|
|00001030| 73 63 72 78 31 25 2b 71 | 31 25 21 31 36 2d 6d 6f |scrx1%+q|1%!16-mo|
|00001040| 75 73 65 78 25 0d 06 04 | 20 71 31 25 21 33 36 3d |usex%...| q1%!36=|
|00001050| 73 63 72 79 31 25 2b 71 | 31 25 21 32 30 2d 6d 6f |scry1%+q|1%!20-mo|
|00001060| 75 73 65 79 25 0d 06 0e | 19 c8 99 22 57 69 6d 70 |usey%...|..."Wimp|
|00001070| 5f 44 72 61 67 42 6f 78 | 22 2c 2c 71 31 25 0d 06 |_DragBox|",,q1%..|
|00001080| 18 05 e1 0d 06 22 05 3a | 0d 06 2c 15 dd f2 73 61 |.....".:|..,...sa|
|00001090| 76 65 66 69 6c 65 28 66 | 25 2c 6e 24 29 0d 06 36 |vefile(f|%,n$)..6|
|000010a0| 11 ea 20 6c 24 2c 63 25 | 2c 64 24 2c 64 25 0d 06 |.. l$,c%|,d$,d%..|
|000010b0| 40 09 e7 66 25 20 8c 0d | 06 4a 0a 20 6c 24 3d 6e |@..f% ..|.J. l$=n|
|000010c0| 24 0d 06 54 05 cc 0d 06 | 5e 12 20 6c 24 3d 24 66 |$..T....|^. l$=$f|
|000010d0| 69 6c 65 6e 61 6d 65 25 | 0d 06 68 5b 20 e7 a7 6c |ilename%|..h[ ..l|
|000010e0| 24 2c 22 2e 22 29 3d 30 | 20 80 20 a7 6c 24 2c 22 |$,".")=0| . .l$,"|
|000010f0| 3a 22 29 3d 30 20 f2 6f | 6b 28 22 54 6f 20 73 61 |:")=0 .o|k("To sa|
|00001100| 76 65 20 74 68 65 20 66 | 69 6c 65 2c 20 64 72 61 |ve the f|ile, dra|
|00001110| 67 20 74 68 65 20 69 63 | 6f 6e 20 74 6f 20 61 20 |g the ic|on to a |
|00001120| 64 69 72 65 63 74 6f 72 | 79 20 76 69 65 77 65 72 |director|y viewer|
|00001130| 2e 22 29 0d 06 72 05 cd | 0d 06 7c 26 65 72 72 6f |.")..r..|..|&erro|
|00001140| 72 5f 66 6c 61 67 25 3d | 31 3a f4 20 61 6c 6c 20 |r_flag%=|1:. all |
|00001150| 65 72 72 6f 72 73 20 61 | 72 65 20 4f 4b 21 0d 06 |errors a|re OK!..|
|00001160| 86 3e ff 22 43 6f 70 79 | 20 3c 42 61 73 54 78 74 |.>."Copy| <BasTxt|
|00001170| 24 44 69 72 3e 2e 4f 75 | 74 70 75 74 20 22 2b 6c |$Dir>.Ou|tput "+l|
|00001180| 24 2b 22 20 7e 41 7e 43 | 7e 44 46 7e 4c 7e 4e 7e |$+" ~A~C|~DF~L~N~|
|00001190| 50 7e 51 7e 52 7e 53 7e | 54 7e 56 22 0d 06 90 33 |P~Q~R~S~|T~V"...3|
|000011a0| 65 72 72 6f 72 5f 66 6c | 61 67 25 3d 33 3a f4 20 |error_fl|ag%=3:. |
|000011b0| 61 6c 6c 20 65 72 72 6f | 72 73 20 61 72 65 20 75 |all erro|rs are u|
|000011c0| 6e 65 78 70 65 63 74 65 | 64 20 61 67 61 69 6e 0d |nexpecte|d again.|
|000011d0| 06 9a 28 21 71 32 25 3d | 73 61 76 65 25 3a c8 99 |..(!q2%=|save%:..|
|000011e0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|000011f0| 77 22 2c 2c 71 32 25 0d | 06 a4 10 f2 69 6e 69 74 |w",,q2%.|....init|
|00001200| 5f 73 79 73 74 65 6d 0d | 06 ae 05 e1 0d 06 b8 05 |_system.|........|
|00001210| 3a 0d 06 c2 17 dd a4 6c | 65 61 66 6e 61 6d 65 5f |:......l|eafname_|
|00001220| 70 74 72 28 66 31 25 29 | 0d 06 cc 09 ea 20 66 32 |ptr(f1%)|..... f2|
|00001230| 25 0d 06 d6 05 f5 0d 06 | e0 0c 20 66 32 25 3d 66 |%.......|.. f2%=f|
|00001240| 31 25 0d 06 ea 14 20 66 | 31 25 2b 3d a7 24 66 31 |1%.... f|1%+=.$f1|
|00001250| 25 2c 22 3a 22 29 0d 06 | f4 0d fd 20 66 31 25 3d |%,":")..|... f1%=|
|00001260| 66 32 25 0d 06 fe 05 f5 | 0d 07 08 0c 20 66 32 25 |f2%.....|.... f2%|
|00001270| 3d 66 31 25 0d 07 12 14 | 20 66 31 25 2b 3d a7 24 |=f1%....| f1%+=.$|
|00001280| 66 31 25 2c 22 2e 22 29 | 0d 07 1c 0d fd 20 66 31 |f1%,".")|..... f1|
|00001290| 25 3d 66 32 25 0d 07 26 | 08 3d 66 31 25 0d 07 30 |%=f2%..&|.=f1%..0|
|000012a0| 05 3a 0d 07 3a 13 dd a4 | 6c 65 61 66 6e 61 6d 65 |.:..:...|leafname|
|000012b0| 28 66 31 24 29 0d 07 44 | 08 ea 20 69 25 0d 07 4e |(f1$)..D|.. i%..N|
|000012c0| 05 f5 0d 07 58 11 20 69 | 25 3d a7 66 31 24 2c 22 |....X. i|%=.f1$,"|
|000012d0| 2e 22 29 0d 07 62 1a 20 | e7 69 25 3c 3e 30 20 66 |.")..b. |.i%<>0 f|
|000012e0| 31 24 3d c1 66 31 24 2c | 69 25 2b 31 29 0d 07 6c |1$=.f1$,|i%+1)..l|
|000012f0| 0a fd 20 69 25 3d 30 0d | 07 76 08 3d 66 31 24 0d |.. i%=0.|.v.=f1$.|
|00001300| 07 80 05 3a 0d 07 8a 10 | dd f2 64 65 63 6f 64 65 |...:....|..decode|
|00001310| 64 72 61 67 0d 07 94 17 | ea 20 68 25 2c 69 25 2c |drag....|. h%,i%,|
|00001320| 6d 78 25 2c 6d 79 25 2c | 66 74 25 0d 07 9e 20 c8 |mx%,my%,|ft%... .|
|00001330| 99 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 |."Wimp_G|etPointe|
|00001340| 72 49 6e 66 6f 22 2c 2c | 71 31 25 0d 07 a8 0c 6d |rInfo",,|q1%....m|
|00001350| 78 25 3d 21 71 31 25 0d | 07 b2 0d 6d 79 25 3d 71 |x%=!q1%.|...my%=q|
|00001360| 31 25 21 34 0d 07 bc 0d | 68 25 3d 71 31 25 21 31 |1%!4....|h%=q1%!1|
|00001370| 32 0d 07 c6 0d 69 25 3d | 71 31 25 21 31 36 0d 07 |2....i%=|q1%!16..|
|00001380| d0 24 e7 68 25 3d 73 61 | 76 65 25 20 e1 3a f4 20 |.$.h%=sa|ve% .:. |
|00001390| 64 72 6f 70 70 65 64 20 | 6f 6e 20 6d 79 73 65 6c |dropped |on mysel|
|000013a0| 66 21 0d 07 da 27 e7 73 | 61 76 65 25 3d 73 61 76 |f!...'.s|ave%=sav|
|000013b0| 65 66 66 66 25 20 66 74 | 25 3d 26 46 46 46 20 8b |efff% ft|%=&FFF .|
|000013c0| 20 66 74 25 3d 26 46 46 | 42 0d 07 e4 28 f2 64 72 | ft%=&FF|B...(.dr|
|000013d0| 61 67 5f 73 61 76 65 66 | 69 6c 65 28 68 25 2c 69 |ag_savef|ile(h%,i|
|000013e0| 25 2c 6d 78 25 2c 6d 79 | 25 2c 66 74 25 2c 2d 31 |%,mx%,my|%,ft%,-1|
|000013f0| 29 0d 07 ee 05 e1 0d 07 | f8 05 3a 0d 08 02 2c dd |).......|..:...,.|
|00001400| f2 64 72 61 67 5f 73 61 | 76 65 66 69 6c 65 28 68 |.drag_sa|vefile(h|
|00001410| 25 2c 69 25 2c 6d 78 25 | 2c 6d 79 25 2c 66 74 25 |%,i%,mx%|,my%,ft%|
|00001420| 2c 74 61 73 6b 25 29 0d | 08 0c 0e ea 20 66 31 25 |,task%).|.... f1%|
|00001430| 2c 65 78 74 25 0d 08 16 | 31 66 31 25 3d 8e 28 22 |,ext%...|1f1%=.("|
|00001440| 3c 42 61 73 54 78 74 24 | 44 69 72 3e 2e 4f 75 74 |<BasTxt$|Dir>.Out|
|00001450| 70 75 74 22 29 3a 65 78 | 74 25 3d a2 23 66 31 25 |put"):ex|t%=.#f1%|
|00001460| 3a d9 23 66 31 25 0d 08 | 20 20 66 31 25 3d a4 6c |:.#f1%..|  f1%=.l|
|00001470| 65 61 66 6e 61 6d 65 5f | 70 74 72 28 66 69 6c 65 |eafname_|ptr(file|
|00001480| 6e 61 6d 65 25 29 0d 08 | 2a 16 21 71 31 25 3d 28 |name%)..|*.!q1%=(|
|00001490| 34 38 2b a9 24 66 31 25 | 29 80 ac 33 0d 08 34 0c |48+.$f1%|)..3..4.|
|000014a0| 71 31 25 21 31 32 3d 30 | 0d 08 3e 0c 71 31 25 21 |q1%!12=0|..>.q1%!|
|000014b0| 31 36 3d 31 0d 08 48 0d | 71 31 25 21 32 30 3d 68 |16=1..H.|q1%!20=h|
|000014c0| 25 0d 08 52 0d 71 31 25 | 21 32 34 3d 69 25 0d 08 |%..R.q1%|!24=i%..|
|000014d0| 5c 0e 71 31 25 21 32 38 | 3d 6d 78 25 0d 08 66 0e |\.q1%!28|=mx%..f.|
|000014e0| 71 31 25 21 33 32 3d 6d | 79 25 0d 08 70 0f 71 31 |q1%!32=m|y%..p.q1|
|000014f0| 25 21 33 36 3d 65 78 74 | 25 0d 08 7a 0e 71 31 25 |%!36=ext|%..z.q1%|
|00001500| 21 34 30 3d 66 74 25 0d | 08 84 12 24 28 71 31 25 |!40=ft%.|...$(q1%|
|00001510| 2b 34 34 29 3d 24 66 31 | 25 0d 08 8e 1a 3f 28 71 |+44)=$f1|%....?(q|
|00001520| 31 25 2b 34 34 2b a9 24 | 28 71 31 25 2b 34 34 29 |1%+44+.$|(q1%+44)|
|00001530| 29 3d 30 0d 08 98 0f e7 | 74 61 73 6b 25 3d 2d 31 |)=0.....|task%=-1|
|00001540| 20 8c 0d 08 a2 26 20 c8 | 99 22 57 69 6d 70 5f 53 | ....& .|."Wimp_S|
|00001550| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 37 2c 71 |endMessa|ge",17,q|
|00001560| 31 25 2c 68 25 2c 69 25 | 0d 08 ac 05 cc 0d 08 b6 |1%,h%,i%|........|
|00001570| 26 20 c8 99 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |& .."Wim|p_SendMe|
|00001580| 73 73 61 67 65 22 2c 31 | 38 2c 71 31 25 2c 74 61 |ssage",1|8,q1%,ta|
|00001590| 73 6b 25 0d 08 c0 05 cd | 0d 08 ca 12 73 61 76 65 |sk%.....|....save|
|000015a0| 72 65 66 25 3d 71 31 25 | 21 38 0d 08 d4 05 e1 0d |ref%=q1%|!8......|
|000015b0| 08 de 05 3a 0d 08 e8 0e | dd f2 6b 65 79 70 72 65 |...:....|..keypre|
|000015c0| 73 73 0d 08 f2 3b e7 71 | 31 25 21 32 34 3d 31 33 |ss...;.q|1%!24=13|
|000015d0| 20 f2 73 61 76 65 66 69 | 6c 65 28 a3 2c 22 22 29 | .savefi|le(.,"")|
|000015e0| 20 8b 20 c8 99 22 57 69 | 6d 70 5f 50 72 6f 63 65 | . .."Wi|mp_Proce|
|000015f0| 73 73 4b 65 79 22 2c 71 | 31 25 21 32 34 0d 08 fc |ssKey",q|1%!24...|
|00001600| 05 e1 0d 09 06 05 3a 0d | 09 10 16 dd f2 64 6f 6d |......:.|.....dom|
|00001610| 65 6e 75 28 68 25 2c 78 | 25 2c 79 25 29 0d 09 1a |enu(h%,x|%,y%)...|
|00001620| 24 6d 65 6e 75 64 61 74 | 61 25 3d 68 25 3a 6d 65 |$menudat|a%=h%:me|
|00001630| 6e 75 78 25 3d 78 25 3a | 6d 65 6e 75 79 25 3d 79 |nux%=x%:|menuy%=y|
|00001640| 25 0d 09 24 21 c8 99 22 | 57 69 6d 70 5f 43 72 65 |%..$!.."|Wimp_Cre|
|00001650| 61 74 65 4d 65 6e 75 22 | 2c 2c 68 25 2c 78 25 2c |ateMenu"|,,h%,x%,|
|00001660| 79 25 0d 09 2e 05 e1 0d | 09 38 05 3a 0d 09 42 10 |y%......|.8.:..B.|
|00001670| dd f2 6d 65 6e 75 73 65 | 6c 65 63 74 0d 09 4c 13 |..menuse|lect..L.|
|00001680| ea 20 61 24 2c 69 25 2c | 61 64 6a 75 73 74 25 0d |. a$,i%,|adjust%.|
|00001690| 09 56 34 c8 99 22 57 69 | 6d 70 5f 47 65 74 50 6f |.V4.."Wi|mp_GetPo|
|000016a0| 69 6e 74 65 72 49 6e 66 | 6f 22 2c 2c 71 32 25 3a |interInf|o",,q2%:|
|000016b0| 61 64 6a 75 73 74 25 3d | 28 71 32 25 21 38 20 80 |adjust%=|(q2%!8 .|
|000016c0| 20 31 29 0d 09 60 38 c8 | 99 22 57 69 6d 70 5f 44 | 1)..`8.|."Wimp_D|
|000016d0| 65 63 6f 64 65 4d 65 6e | 75 22 2c 2c 6d 65 6e 75 |ecodeMen|u",,menu|
|000016e0| 64 61 74 61 25 2c 71 31 | 25 2c c4 32 30 30 2c 22 |data%,q1|%,.200,"|
|000016f0| 20 22 29 20 b8 20 2c 2c | 2c 61 24 0d 09 6a 0c e7 | ") . ,,|,a$..j..|
|00001700| 61 24 3d 22 22 20 e1 0d | 09 74 1a e7 61 24 3d 22 |a$="" ..|.t..a$="|
|00001710| 51 75 69 74 22 20 f2 73 | 68 75 74 64 6f 77 6e 3a |Quit" .s|hutdown:|
|00001720| e0 0d 09 7e 18 e7 61 24 | 3d 22 53 61 76 65 20 6f |...~..a$|="Save o|
|00001730| 70 74 69 6f 6e 73 22 20 | 8c 0d 09 88 22 20 69 25 |ptions" |...." i%|
|00001740| 3d ae 28 22 3c 42 61 73 | 54 78 74 24 44 69 72 3e |=.("<Bas|Txt$Dir>|
|00001750| 2e 21 43 68 6f 69 63 65 | 73 22 29 0d 09 92 18 20 |.!Choice|s").... |
|00001760| d5 23 69 25 2c a4 73 74 | 72 69 70 5f 6e 75 6d 62 |.#i%,.st|rip_numb|
|00001770| 65 72 73 0d 09 9c 19 20 | d5 23 69 25 2c a4 73 65 |ers.... |.#i%,.se|
|00001780| 6e 64 5f 74 6f 5f 65 64 | 69 74 6f 72 0d 09 a6 1a |nd_to_ed|itor....|
|00001790| 20 d5 23 69 25 2c a4 66 | 61 73 74 5f 63 6f 6e 76 | .#i%,.f|ast_conv|
|000017a0| 65 72 73 69 6f 6e 0d 09 | b0 18 20 d5 23 69 25 2c |ersion..|.. .#i%,|
|000017b0| a4 73 61 76 65 5f 69 66 | 5f 6e 61 6d 65 64 0d 09 |.save_if|_named..|
|000017c0| ba 09 20 d9 23 69 25 0d | 09 c4 05 cd 0d 09 ce 2d |.. .#i%.|.......-|
|000017d0| e7 61 64 6a 75 73 74 25 | 20 f2 64 6f 6d 65 6e 75 |.adjust%| .domenu|
|000017e0| 28 6d 65 6e 75 64 61 74 | 61 25 2c 6d 65 6e 75 78 |(menudat|a%,menux|
|000017f0| 25 2c 6d 65 6e 75 79 25 | 29 0d 09 d8 05 e1 0d 09 |%,menuy%|).......|
|00001800| e2 05 3a 0d 09 ec 0e dd | a4 72 74 6f 7a 28 70 25 |..:.....|.rtoz(p%|
|00001810| 29 0d 09 f6 08 ea 20 71 | 24 0d 0a 00 1e c8 95 20 |)..... q|$...... |
|00001820| 3f 70 25 3c 3e 30 20 71 | 24 2b 3d bd 3f 70 25 3a |?p%<>0 q|$+=.?p%:|
|00001830| 70 25 2b 3d 31 3a ce 0d | 0a 0a 07 3d 71 24 0d 0a |p%+=1:..|...=q$..|
|00001840| 14 05 3a 0d 0a 1e 11 dd | f2 72 65 63 65 69 76 65 |..:.....|.receive|
|00001850| 28 72 25 29 0d 0a 28 14 | ea 20 6e 61 6d 65 24 2c |(r%)..(.|. name$,|
|00001860| 69 25 2c 78 25 2c 7a 25 | 0d 0a 32 0f c8 8e 20 71 |i%,x%,z%|..2... q|
|00001870| 31 25 21 31 36 20 ca 0d | 0a 3c 13 c9 30 3a 20 f2 |1%!16 ..|.<..0: .|
|00001880| 73 68 75 74 64 6f 77 6e | 3a e0 0d 0a 46 39 c9 31 |shutdown|:...F9.1|
|00001890| 3a 20 f4 20 66 69 6c 65 | 20 64 72 6f 70 70 65 64 |: . file| dropped|
|000018a0| 20 66 72 6f 6d 20 61 70 | 70 6c 69 63 61 74 69 6f | from ap|plicatio|
|000018b0| 6e 20 2d 20 72 65 74 75 | 72 6e 20 66 69 6c 65 6e |n - retu|rn filen|
|000018c0| 61 6d 65 0d 0a 50 32 20 | 20 20 20 20 20 20 21 71 |ame..P2 |      !q|
|000018d0| 31 25 3d 28 34 38 2b 32 | 30 29 80 ac 33 3a f4 20 |1%=(48+2|0)..3:. |
|000018e0| 61 64 6a 75 73 74 20 73 | 69 7a 65 20 6f 66 20 70 |adjust s|ize of p|
|000018f0| 61 63 6b 65 74 0d 0a 5a | 24 20 20 20 20 20 20 20 |acket..Z|$       |
|00001900| 71 31 25 21 31 32 3d 71 | 31 25 21 38 3a f4 20 63 |q1%!12=q|1%!8:. c|
|00001910| 6f 70 79 20 6d 79 72 65 | 66 0d 0a 64 28 20 20 20 |opy myre|f..d(   |
|00001920| 20 20 20 20 71 31 25 21 | 31 36 3d 32 3a f4 20 73 |    q1%!|16=2:. s|
|00001930| 65 74 20 74 6f 20 44 61 | 74 61 4c 6f 61 64 41 63 |et to Da|taLoadAc|
|00001940| 6b 0d 0a 6e 36 20 20 20 | 20 20 20 20 e7 ac 28 a4 |k..n6   |    ..(.|
|00001950| 73 61 76 65 5f 69 66 5f | 6e 61 6d 65 64 29 20 71 |save_if_|named) q|
|00001960| 31 25 21 33 36 3d 2d 31 | 3a f4 20 75 6e 73 61 66 |1%!36=-1|:. unsaf|
|00001970| 65 20 66 69 6c 65 21 0d | 0a 78 2f 20 20 20 20 20 |e file!.|.x/     |
|00001980| 20 20 24 28 71 31 25 2b | 34 34 29 3d 22 3c 42 61 |  $(q1%+|44)="<Ba|
|00001990| 73 54 78 74 24 44 69 72 | 3e 2e 42 61 73 54 78 74 |sTxt$Dir|>.BasTxt|
|000019a0| 22 2b bd 28 30 29 0d 0a | 82 2c 20 20 20 20 20 20 |"+.(0)..|.,      |
|000019b0| 20 c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 | .."Wimp|_SendMes|
|000019c0| 73 61 67 65 22 2c 31 37 | 2c 71 31 25 2c 71 31 25 |sage",17|,q1%,q1%|
|000019d0| 21 34 0d 0a 8c 0c 20 20 | 20 20 20 20 20 e1 0d 0a |!4....  |     ...|
|000019e0| 96 1b c9 32 3a 20 e7 71 | 31 25 21 31 32 3c 3e 73 |...2: .q|1%!12<>s|
|000019f0| 61 76 65 72 65 66 25 20 | 8c 0d 0a a0 32 20 20 20 |averef% |....2   |
|00001a00| 20 20 20 20 20 f2 6f 6b | 28 22 55 6e 65 78 70 65 |     .ok|("Unexpe|
|00001a10| 63 74 65 64 20 73 61 76 | 65 20 70 61 63 6b 65 74 |cted sav|e packet|
|00001a20| 20 72 65 63 65 69 76 65 | 64 22 29 0d 0a aa 0c 20 | receive|d").... |
|00001a30| 20 20 20 20 20 20 cd 0d | 0a b4 17 20 20 20 20 20 |      ..|...     |
|00001a40| 20 20 e7 71 31 25 21 33 | 36 3d 2d 31 20 8c 0d 0a |  .q1%!3|6=-1 ...|
|00001a50| be 26 20 20 20 20 20 20 | 20 20 f2 73 61 76 65 66 |.&      |  .savef|
|00001a60| 69 6c 65 28 b9 2c a4 72 | 74 6f 7a 28 71 31 25 2b |ile(.,.r|toz(q1%+|
|00001a70| 34 34 29 29 0d 0a c8 0c | 20 20 20 20 20 20 20 cc |44))....|       .|
|00001a80| 0d 0a d2 24 20 20 20 20 | 20 20 20 20 24 66 69 6c |...$    |    $fil|
|00001a90| 65 6e 61 6d 65 25 3d a4 | 72 74 6f 7a 28 71 31 25 |ename%=.|rtoz(q1%|
|00001aa0| 2b 34 34 29 0d 0a dc 1b | 20 20 20 20 20 20 20 20 |+44)....|        |
|00001ab0| f2 73 61 76 65 66 69 6c | 65 28 a3 2c 22 22 29 0d |.savefil|e(.,"").|
|00001ac0| 0a e6 0c 20 20 20 20 20 | 20 20 cd 0d 0a f0 13 20 |...     |  ..... |
|00001ad0| 20 20 20 20 20 20 71 31 | 25 21 31 36 3d 33 0d 0a |      q1|%!16=3..|
|00001ae0| fa 17 20 20 20 20 20 20 | 20 71 31 25 21 31 32 3d |..      | q1%!12=|
|00001af0| 71 31 25 21 38 0d 0b 04 | 2c 20 20 20 20 20 20 20 |q1%!8...|,       |
|00001b00| c8 99 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |.."Wimp_|SendMess|
|00001b10| 61 67 65 22 2c 31 37 2c | 71 31 25 2c 71 31 25 21 |age",17,|q1%,q1%!|
|00001b20| 34 0d 0b 0e 39 c9 33 3a | 20 f4 20 66 69 6c 65 20 |4...9.3:| . file |
|00001b30| 64 72 6f 70 70 65 64 20 | 66 72 6f 6d 20 46 69 6c |dropped |from Fil|
|00001b40| 65 72 20 2d 20 74 72 61 | 6e 73 66 65 72 20 74 6f |er - tra|nsfer to|
|00001b50| 20 64 61 74 61 20 66 69 | 6c 65 0d 0b 18 16 20 20 | data fi|le....  |
|00001b60| 20 20 20 20 20 f2 63 68 | 65 63 6b 5f 74 79 70 65 |     .ch|eck_type|
|00001b70| 0d 0b 22 20 20 20 20 20 | 20 20 20 71 31 25 21 31 |.."     |   q1%!1|
|00001b80| 36 3d 34 3a 71 31 25 21 | 31 32 3d 71 31 25 21 38 |6=4:q1%!|12=q1%!8|
|00001b90| 0d 0b 2c 2c 20 20 20 20 | 20 20 20 c8 99 22 57 69 |..,,    |   .."Wi|
|00001ba0| 6d 70 5f 53 65 6e 64 4d | 65 73 73 61 67 65 22 2c |mp_SendM|essage",|
|00001bb0| 31 37 2c 71 31 25 2c 71 | 31 25 21 34 0d 0b 36 1c |17,q1%,q|1%!4..6.|
|00001bc0| 20 20 20 20 20 20 20 66 | 69 6c 65 5f 74 79 70 65 |       f|ile_type|
|00001bd0| 25 3d 71 31 25 21 34 30 | 0d 0b 40 1f 20 20 20 20 |%=q1%!40|..@.    |
|00001be0| 20 20 20 66 69 6c 65 31 | 24 3d a4 72 74 6f 7a 28 |   file1|$=.rtoz(|
|00001bf0| 71 31 25 2b 34 34 29 0d | 0b 4a 19 20 20 20 20 20 |q1%+44).|.J.     |
|00001c00| 20 20 f2 63 6f 6e 76 65 | 72 74 5f 66 69 6c 65 73 |  .conve|rt_files|
|00001c10| 0d 0b 54 36 c9 34 3a 20 | f4 20 61 63 6b 6e 6f 77 |..T6.4: |. acknow|
|00001c20| 6c 65 64 67 65 6d 65 6e | 74 20 6f 66 20 66 69 6c |ledgemen|t of fil|
|00001c30| 65 20 6c 6f 61 64 65 64 | 20 2d 20 64 65 6c 65 74 |e loaded| - delet|
|00001c40| 65 20 66 69 6c 65 0d 0b | 5e 17 20 20 20 20 20 20 |e file..|^.      |
|00001c50| 20 f2 69 6e 69 74 5f 73 | 79 73 74 65 6d 0d 0b 68 | .init_s|ystem..h|
|00001c60| 25 c9 26 35 30 32 3a 20 | f4 20 69 6e 74 65 72 61 |%.&502: |. intera|
|00001c70| 63 74 69 76 65 20 68 65 | 6c 70 20 72 65 71 75 65 |ctive he|lp reque|
|00001c80| 73 74 0d 0b 72 1f 20 20 | 20 20 20 20 20 20 20 20 |st..r.  |        |
|00001c90| f2 69 6e 74 65 72 61 63 | 74 69 76 65 5f 68 65 6c |.interac|tive_hel|
|00001ca0| 70 0d 0b 7c 19 c9 26 34 | 30 30 43 31 3a 20 f2 67 |p..|..&4|00C1: .g|
|00001cb0| 65 74 6d 6f 64 65 69 6e | 66 6f 0d 0b 86 35 c9 26 |etmodein|fo...5.&|
|00001cc0| 34 30 30 43 32 3a 20 e7 | a4 72 74 6f 7a 28 71 31 |400C2: .|.rtoz(q1|
|00001cd0| 25 2b 32 38 29 3d 22 45 | 64 69 74 22 20 65 64 69 |%+28)="E|dit" edi|
|00001ce0| 74 5f 74 61 73 6b 69 64 | 25 3d 71 31 25 21 34 0d |t_taskid|%=q1%!4.|
|00001cf0| 0b 90 30 c9 26 34 30 30 | 43 33 3a 20 e7 71 31 25 |..0.&400|C3: .q1%|
|00001d00| 21 34 3d 65 64 69 74 5f | 74 61 73 6b 69 64 25 20 |!4=edit_|taskid% |
|00001d10| 65 64 69 74 5f 74 61 73 | 6b 69 64 25 3d 2d 31 0d |edit_tas|kid%=-1.|
|00001d20| 0b 9a 36 c9 26 34 30 30 | 43 37 3a 20 e7 a4 72 74 |..6.&400|C7: ..rt|
|00001d30| 6f 7a 28 71 31 25 2b 32 | 38 29 3d 22 45 64 69 74 |oz(q1%+2|8)="Edit|
|00001d40| 22 20 65 64 69 74 5f 74 | 61 73 6b 69 64 25 3d 71 |" edit_t|askid%=q|
|00001d50| 31 25 21 32 30 0d 0b a4 | 1c c9 26 38 30 31 34 35 |1%!20...|..&80145|
|00001d60| 3a 20 e7 20 71 31 25 21 | 34 30 3d 26 46 46 42 20 |: . q1%!|40=&FFB |
|00001d70| 8c 0d 0b ae 21 20 20 20 | 20 20 20 20 20 20 20 20 |....!   |        |
|00001d80| 20 20 c8 99 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |  .."Hou|rglass_O|
|00001d90| 6e 22 0d 0b b8 41 20 20 | 20 20 20 20 20 20 20 20 |n"...A  |        |
|00001da0| 20 20 20 f2 63 6f 6e 76 | 65 72 74 5f 74 6f 5f 74 |   .conv|ert_to_t|
|00001db0| 65 78 74 28 a4 72 74 6f | 7a 28 71 31 25 2b 34 34 |ext(.rto|z(q1%+44|
|00001dc0| 29 2c 22 3c 50 72 69 6e | 74 65 72 24 54 65 6d 70 |),"<Prin|ter$Temp|
|00001dd0| 3e 22 29 0d 0b c2 22 20 | 20 20 20 20 20 20 20 20 |>")..." |        |
|00001de0| 20 20 20 20 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 |    .."H|ourglass|
|00001df0| 5f 4f 66 66 22 0d 0b cc | 1d 20 20 20 20 20 20 20 |_Off"...|.       |
|00001e00| 20 20 20 20 20 20 71 31 | 25 21 26 34 30 3d 26 46 |      q1|%!&40=&F|
|00001e10| 46 46 0d 0b d6 1e 20 20 | 20 20 20 20 20 20 20 20 |FF....  |        |
|00001e20| 20 20 20 71 31 25 21 31 | 36 3d 26 38 30 31 34 36 |   q1%!1|6=&80146|
|00001e30| 0d 0b e0 1d 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|00001e40| 20 71 31 25 21 31 32 3d | 71 31 25 21 38 0d 0b ea | q1%!12=|q1%!8...|
|00001e50| 32 20 20 20 20 20 20 20 | 20 20 20 20 20 20 c8 99 |2       |      ..|
|00001e60| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00001e70| 65 22 2c 31 37 2c 71 31 | 25 2c 71 31 25 21 34 0d |e",17,q1|%,q1%!4.|
|00001e80| 0b f4 11 20 20 20 20 20 | 20 20 20 20 20 20 20 cd |...     |       .|
|00001e90| 0d 0b fe 05 cb 0d 0c 08 | 05 e1 0d 0c 12 05 3a 0d |........|......:.|
|00001ea0| 0c 1c 09 dd f2 61 63 6b | 0d 0c 26 41 f4 20 2a 2a |.....ack|..&A. **|
|00001eb0| 2a 2a 2a 20 61 63 6b 20 | 63 61 6e 20 6f 6e 6c 79 |*** ack |can only|
|00001ec0| 20 62 65 20 69 66 20 62 | 72 6f 61 64 63 61 73 74 | be if b|roadcast|
|00001ed0| 20 66 6f 72 20 74 65 78 | 74 20 66 69 6c 65 20 68 | for tex|t file h|
|00001ee0| 61 73 20 66 61 69 6c 65 | 64 0d 0c 30 14 24 66 69 |as faile|d..0.$fi|
|00001ef0| 6c 65 6e 61 6d 65 66 66 | 66 25 3d 22 22 0d 0c 3a |lenameff|f%=""..:|
|00001f00| 2a f2 70 6f 70 75 70 5f | 73 61 76 65 64 62 6f 78 |*.popup_|savedbox|
|00001f10| 28 73 61 76 65 66 66 66 | 25 2c 66 69 6c 65 6e 61 |(savefff|%,filena|
|00001f20| 6d 65 66 66 66 25 29 0d | 0c 44 05 e1 0d 0c 4e 05 |mefff%).|.D....N.|
|00001f30| 3a 0d 0c 58 16 dd f2 69 | 6e 74 65 72 61 63 74 69 |:..X...i|nteracti|
|00001f40| 76 65 5f 68 65 6c 70 0d | 0c 62 08 ea 20 74 24 0d |ve_help.|.b.. t$.|
|00001f50| 0c 6c 0f c8 8e 20 71 31 | 25 21 33 32 20 ca 0d 0c |.l... q1|%!32 ...|
|00001f60| 76 99 c9 2d 32 3a 20 74 | 24 3d 22 54 68 69 73 20 |v..-2: t|$="This |
|00001f70| 69 73 20 74 68 65 20 42 | 41 53 49 43 20 7c 3c 3d |is the B|ASIC |<=|
|00001f80| 3e 20 74 65 78 74 20 69 | 63 6f 6e 2e 7c 4d 44 72 |> text i|con.|MDr|
|00001f90| 6f 70 20 61 20 42 41 53 | 49 43 20 66 69 6c 65 20 |op a BAS|IC file |
|00001fa0| 6f 6e 20 69 74 20 74 6f | 20 63 6f 6e 76 65 72 74 |on it to| convert|
|00001fb0| 20 69 74 20 74 6f 20 74 | 65 78 74 2c 20 6f 72 20 | it to t|ext, or |
|00001fc0| 76 69 63 65 2d 76 65 72 | 73 61 2e 7c 4d 43 6c 69 |vice-ver|sa.|MCli|
|00001fd0| 63 6b 20 4d 45 4e 55 20 | 74 6f 20 73 65 74 20 74 |ck MENU |to set t|
|00001fe0| 68 65 20 63 6f 6e 76 65 | 72 73 69 6f 6e 20 6f 70 |he conve|rsion op|
|00001ff0| 74 69 6f 6e 73 2e 22 0d | 0c 80 55 c9 73 61 76 65 |tions.".|..U.save|
|00002000| 25 3a 20 74 24 3d 22 44 | 72 61 67 20 74 68 65 20 |%: t$="D|rag the |
|00002010| 69 63 6f 6e 20 74 6f 20 | 73 61 76 65 20 74 68 65 |icon to |save the|
|00002020| 20 66 69 6c 65 20 6f 72 | 20 74 79 70 65 20 69 6e | file or| type in|
|00002030| 20 61 20 66 69 6c 65 6e | 61 6d 65 20 26 20 70 72 | a filen|ame & pr|
|00002040| 65 73 73 20 52 45 54 55 | 52 4e 2e 22 0d 0c 8a 1a |ess RETU|RN."....|
|00002050| c9 6f 70 74 69 6f 6e 73 | 25 3a 20 c8 8e 20 71 31 |.options|%: .. q1|
|00002060| 25 21 33 36 20 ca 0d 0c | 94 1a 20 c9 32 3a 20 e7 |%!36 ...|.. .2: .|
|00002070| a4 73 74 72 69 70 5f 6e | 75 6d 62 65 72 73 20 8c |.strip_n|umbers .|
|00002080| 0d 0c 9e 41 20 20 20 20 | 20 20 20 20 20 74 24 3d |...A    |     t$=|
|00002090| 22 43 6c 69 63 6b 20 53 | 45 4c 45 43 54 20 74 6f |"Click S|ELECT to|
|000020a0| 20 6c 65 61 76 65 20 6c | 69 6e 65 20 6e 75 6d 62 | leave l|ine numb|
|000020b0| 65 72 73 20 69 6e 20 74 | 68 65 20 74 65 78 74 2e |ers in t|he text.|
|000020c0| 22 0d 0c a8 0d 20 20 20 | 20 20 20 20 20 cc 0d 0c |"....   |     ...|
|000020d0| b2 44 20 20 20 20 20 20 | 20 20 20 74 24 3d 22 43 |.D      |   t$="C|
|000020e0| 6c 69 63 6b 20 53 45 4c | 45 43 54 20 74 6f 20 72 |lick SEL|ECT to r|
|000020f0| 65 6d 6f 76 65 20 6c 69 | 6e 65 20 6e 75 6d 62 65 |emove li|ne numbe|
|00002100| 72 73 20 66 72 6f 6d 20 | 74 68 65 20 74 65 78 74 |rs from |the text|
|00002110| 2e 22 0d 0c bc 0d 20 20 | 20 20 20 20 20 20 cd 0d |."....  |      ..|
|00002120| 0c c6 1b 20 c9 33 3a 20 | e7 a4 73 65 6e 64 5f 74 |... .3: |..send_t|
|00002130| 6f 5f 65 64 69 74 6f 72 | 20 8c 0d 0c d0 62 20 20 |o_editor| ....b  |
|00002140| 20 20 20 20 20 20 20 74 | 24 3d 22 43 6c 69 63 6b |       t|$="Click|
|00002150| 20 53 45 4c 45 43 54 20 | 74 6f 20 63 61 75 73 65 | SELECT |to cause|
|00002160| 20 61 20 64 69 61 6c 6f | 67 75 65 20 62 6f 78 20 | a dialo|gue box |
|00002170| 74 6f 20 70 6f 70 20 75 | 70 20 77 68 65 6e 20 74 |to pop u|p when t|
|00002180| 68 65 20 66 69 6c 65 20 | 68 61 73 20 62 65 65 6e |he file |has been|
|00002190| 20 63 6f 6e 76 65 72 74 | 65 64 2e 22 0d 0c da 0d | convert|ed."....|
|000021a0| 20 20 20 20 20 20 20 20 | cc 0d 0c e4 5d 20 20 20 |        |....]   |
|000021b0| 20 20 20 20 20 20 74 24 | 3d 22 43 6c 69 63 6b 20 |      t$|="Click |
|000021c0| 53 45 4c 45 43 54 20 74 | 6f 20 73 65 6e 64 20 74 |SELECT t|o send t|
|000021d0| 68 65 20 72 65 73 75 6c | 74 69 6e 67 20 74 65 78 |he resul|ting tex|
|000021e0| 74 20 64 69 72 65 63 74 | 6c 79 20 74 6f 20 61 20 |t direct|ly to a |
|000021f0| 72 65 73 69 64 65 6e 74 | 20 74 65 78 74 20 65 64 |resident| text ed|
|00002200| 69 74 6f 72 2e 22 0d 0c | ee 0d 20 20 20 20 20 20 |itor."..|..      |
|00002210| 20 20 cd 0d 0c f8 1c 20 | c9 34 3a 20 e7 a4 66 61 |  ..... |.4: ..fa|
|00002220| 73 74 5f 63 6f 6e 76 65 | 72 73 69 6f 6e 20 8c 0d |st_conve|rsion ..|
|00002230| 0d 02 5b 20 20 20 20 20 | 20 20 20 20 74 24 3d 22 |..[     |    t$="|
|00002240| 43 6c 69 63 6b 20 53 45 | 4c 45 43 54 20 74 6f 20 |Click SE|LECT to |
|00002250| 63 6f 6e 76 65 72 74 20 | 66 72 6f 6d 20 42 41 53 |convert |from BAS|
|00002260| 49 43 20 74 6f 20 74 65 | 78 74 20 75 73 69 6e 67 |IC to te|xt using|
|00002270| 20 6c 65 73 73 20 6d 65 | 6d 6f 72 79 20 28 69 65 | less me|mory (ie|
|00002280| 20 73 6c 6f 77 6c 79 29 | 2e 22 0d 0d 0c 0d 20 20 | slowly)|."....  |
|00002290| 20 20 20 20 20 20 cc 0d | 0d 16 5c 20 20 20 20 20 |      ..|..\     |
|000022a0| 20 20 20 20 74 24 3d 22 | 43 6c 69 63 6b 20 53 45 |    t$="|Click SE|
|000022b0| 4c 45 43 54 20 74 6f 20 | 63 6f 6e 76 65 72 74 20 |LECT to |convert |
|000022c0| 66 72 6f 6d 20 42 41 53 | 49 43 20 74 6f 20 74 65 |from BAS|IC to te|
|000022d0| 78 74 20 75 73 69 6e 67 | 20 6d 6f 72 65 20 6d 65 |xt using| more me|
|000022e0| 6d 6f 72 79 20 28 69 65 | 20 71 75 69 63 6b 6c 79 |mory (ie| quickly|
|000022f0| 29 2e 22 0d 0d 20 0d 20 | 20 20 20 20 20 20 20 cd |).".. . |       .|
|00002300| 0d 0d 2a 1a 20 c9 37 3a | 20 e7 a4 73 61 76 65 5f |..*. .7:| ..save_|
|00002310| 69 66 5f 6e 61 6d 65 64 | 20 8c 0d 0d 34 62 20 20 |if_named| ...4b  |
|00002320| 20 20 20 20 20 20 20 74 | 24 3d 22 43 6c 69 63 6b |       t|$="Click|
|00002330| 20 53 45 4c 45 43 54 20 | 74 6f 20 63 61 75 73 65 | SELECT |to cause|
|00002340| 20 61 20 64 69 61 6c 6f | 67 75 65 20 62 6f 78 20 | a dialo|gue box |
|00002350| 74 6f 20 70 6f 70 20 75 | 70 20 77 68 65 6e 20 74 |to pop u|p when t|
|00002360| 68 65 20 66 69 6c 65 20 | 68 61 73 20 62 65 65 6e |he file |has been|
|00002370| 20 63 6f 6e 76 65 72 74 | 65 64 2e 22 0d 0d 3e 0d | convert|ed."..>.|
|00002380| 20 20 20 20 20 20 20 20 | cc 0d 0d 48 59 20 20 20 |        |...HY   |
|00002390| 20 20 20 20 20 20 74 24 | 3d 22 43 6c 69 63 6b 20 |      t$|="Click |
|000023a0| 53 45 4c 45 43 54 20 74 | 6f 20 63 61 75 73 65 20 |SELECT t|o cause |
|000023b0| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 74 6f 20 62 |the prog|ram to b|
|000023c0| 65 20 73 61 76 65 64 20 | 69 66 20 69 74 20 68 61 |e saved |if it ha|
|000023d0| 73 20 61 6e 20 69 6e 63 | 6f 72 65 20 6e 61 6d 65 |s an inc|ore name|
|000023e0| 2e 22 0d 0d 52 0d 20 20 | 20 20 20 20 20 20 cd 0d |."..R.  |      ..|
|000023f0| 0d 5c 3b 20 7f 3a 20 74 | 24 3d 22 44 65 74 65 72 |.\; .: t|$="Deter|
|00002400| 6d 69 6e 65 20 68 6f 77 | 20 74 68 65 20 63 6f 6e |mine how| the con|
|00002410| 76 65 72 73 69 6f 6e 20 | 70 72 6f 63 65 73 73 20 |version |process |
|00002420| 6f 70 65 72 61 74 65 73 | 2e 22 0d 0d 66 06 20 cb |operates|."..f. .|
|00002430| 0d 0d 70 05 cb 0d 0d 7a | 0d e7 74 24 3c 3e 22 22 |..p....z|..t$<>""|
|00002440| 20 8c 0d 0d 84 11 20 71 | 31 25 21 31 32 3d 71 31 | ..... q|1%!12=q1|
|00002450| 25 21 38 0d 0d 8e 10 20 | 71 31 25 21 31 36 3d 26 |%!8.... |q1%!16=&|
|00002460| 35 30 33 0d 0d 98 14 20 | 24 28 71 31 25 2b 32 30 |503.... |$(q1%+20|
|00002470| 29 3d 74 24 2b bd 30 0d | 0d a2 15 20 21 71 31 25 |)=t$+.0.|... !q1%|
|00002480| 3d 28 32 35 2b a9 74 24 | 29 80 ac 33 0d 0d ac 26 |=(25+.t$|)..3...&|
|00002490| 20 c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 | .."Wimp|_SendMes|
|000024a0| 73 61 67 65 22 2c 31 37 | 2c 71 31 25 2c 71 31 25 |sage",17|,q1%,q1%|
|000024b0| 21 34 0d 0d b6 05 cd 0d | 0d c0 05 e1 0d 0d ca 05 |!4......|........|
|000024c0| 3a 0d 0d d4 10 dd f2 63 | 68 65 63 6b 5f 74 79 70 |:......c|heck_typ|
|000024d0| 65 0d 0d de 32 e7 71 31 | 25 21 34 30 3d 26 31 30 |e...2.q1|%!40=&10|
|000024e0| 30 30 20 f2 6f 6b 28 22 | 43 61 6e 27 74 20 63 6f |00 .ok("|Can't co|
|000024f0| 6e 76 65 72 74 20 61 20 | 64 69 72 65 63 74 6f 72 |nvert a |director|
|00002500| 79 22 29 0d 0d e8 35 e7 | 71 31 25 21 34 30 3d 26 |y")...5.|q1%!40=&|
|00002510| 32 30 30 30 20 f2 6f 6b | 28 22 43 61 6e 27 74 20 |2000 .ok|("Can't |
|00002520| 63 6f 6e 76 65 72 74 20 | 61 6e 20 61 70 70 6c 69 |convert |an appli|
|00002530| 63 61 74 69 6f 6e 22 29 | 0d 0d f2 42 e7 71 31 25 |cation")|...B.q1%|
|00002540| 21 34 30 3c 3e 26 46 46 | 46 20 80 20 71 31 25 21 |!40<>&FF|F . q1%!|
|00002550| 34 30 3c 3e 26 46 46 42 | 20 f2 6f 6b 28 22 4d 75 |40<>&FFB| .ok("Mu|
|00002560| 73 74 20 62 65 20 42 41 | 53 49 43 20 6f 72 20 54 |st be BA|SIC or T|
|00002570| 45 58 54 20 66 69 6c 65 | 22 29 0d 0d fc 05 e1 0d |EXT file|")......|
|00002580| 0e 06 05 3a 0d 0e 10 0e | dd f2 73 68 75 74 64 6f |...:....|..shutdo|
|00002590| 77 6e 0d 0e 1a 10 f2 69 | 6e 69 74 5f 73 79 73 74 |wn.....i|nit_syst|
|000025a0| 65 6d 0d 0e 24 16 c8 99 | 22 57 69 6d 70 5f 43 6c |em..$...|"Wimp_Cl|
|000025b0| 6f 73 65 44 6f 77 6e 22 | 0d 0e 2e 05 e1 0d 0e 38 |oseDown"|.......8|
|000025c0| 05 3a 0d 0e 42 0b dd f2 | 65 72 72 6f 72 0d 0e 4c |.:..B...|error..L|
|000025d0| 14 e7 65 72 72 6f 72 5f | 66 6c 61 67 25 3d 33 20 |..error_|flag%=3 |
|000025e0| 8c 0d 0e 56 37 20 f2 65 | 72 72 6f 72 62 6f 78 28 |...V7 .e|rrorbox(|
|000025f0| 22 55 6e 65 78 70 65 63 | 74 65 64 20 65 72 72 6f |"Unexpec|ted erro|
|00002600| 72 20 3a 2d 20 22 2b f6 | 24 2b 22 20 28 22 2b c3 |r :- "+.|$+" ("+.|
|00002610| 28 9e 29 2b 22 29 22 29 | 0d 0e 60 05 cc 0d 0e 6a |(.)+")")|..`....j|
|00002620| 12 20 f2 65 72 72 6f 72 | 62 6f 78 28 f6 24 29 0d |. .error|box(.$).|
|00002630| 0e 74 05 cd 0d 0e 7e 11 | 65 72 72 6f 72 5f 66 6c |.t....~.|error_fl|
|00002640| 61 67 25 3d 33 0d 0e 88 | 05 e1 0d 0e 92 05 3a 0d |ag%=3...|......:.|
|00002650| 0e 9c 0c dd f2 6f 6b 28 | 65 24 29 0d 0e a6 11 65 |.....ok(|e$)....e|
|00002660| 72 72 6f 72 5f 66 6c 61 | 67 25 3d 31 0d 0e b0 0a |rror_fla|g%=1....|
|00002670| 85 20 31 2c 65 24 0d 0e | ba 05 e1 0d 0e c4 05 3a |. 1,e$..|.......:|
|00002680| 0d 0e ce 0f dd f2 66 61 | 74 61 6c 28 65 24 29 0d |......fa|tal(e$).|
|00002690| 0e d8 11 65 72 72 6f 72 | 5f 66 6c 61 67 25 3d 32 |...error|_flag%=2|
|000026a0| 0d 0e e2 0a 85 20 31 2c | 65 24 0d 0e ec 05 e1 0d |..... 1,|e$......|
|000026b0| 0e f6 05 3a 0d 0f 00 12 | dd f2 65 72 72 6f 72 62 |...:....|..errorb|
|000026c0| 6f 78 28 72 24 29 0d 0f | 0a 08 ea 20 72 25 0d 0f |ox(r$)..|... r%..|
|000026d0| 14 19 21 71 31 25 3d 9f | 3a 24 28 71 31 25 2b 34 |..!q1%=.|:$(q1%+4|
|000026e0| 29 3d 72 24 2b bd 30 0d | 0f 1e 47 c8 99 22 57 69 |)=r$+.0.|..G.."Wi|
|000026f0| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00002700| 71 31 25 2c 65 72 72 6f | 72 5f 66 6c 61 67 25 2c |q1%,erro|r_flag%,|
|00002710| 22 42 41 53 49 43 20 3c | 3d 3e 20 54 65 78 74 20 |"BASIC <|=> Text |
|00002720| 75 74 69 6c 69 74 79 22 | 20 b8 20 2c 72 25 0d 0f |utility"| . ,r%..|
|00002730| 28 20 e7 65 72 72 6f 72 | 5f 66 6c 61 67 25 3c 3e |( .error|_flag%<>|
|00002740| 31 20 f2 69 6e 69 74 5f | 73 79 73 74 65 6d 0d 0f |1 .init_|system..|
|00002750| 32 1e e7 72 25 3d 32 20 | c8 99 22 57 69 6d 70 5f |2..r%=2 |.."Wimp_|
|00002760| 43 6c 6f 73 65 44 6f 77 | 6e 22 3a e0 0d 0f 3c 05 |CloseDow|n":...<.|
|00002770| e1 0d 0f 46 05 3a 0d 0f | 50 12 dd a4 69 63 6f 6e |...F.:..|P...icon|
|00002780| 5f 73 65 74 28 69 25 29 | 0d 0f 5a 35 21 71 32 25 |_set(i%)|..Z5!q2%|
|00002790| 3d 6f 70 74 69 6f 6e 73 | 25 3a 71 32 25 21 34 3d |=options|%:q2%!4=|
|000027a0| 69 25 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 49 63 |i%:.."Wi|mp_GetIc|
|000027b0| 6f 6e 53 74 61 74 65 22 | 2c 2c 71 32 25 0d 0f 64 |onState"|,,q2%..d|
|000027c0| 1a 3d 28 28 71 32 25 21 | 32 34 20 80 20 31 3c 3c |.=((q2%!|24 . 1<<|
|000027d0| 32 31 29 3c 3e 30 29 0d | 0f 6e 05 3a 0d 0f 78 20 |21)<>0).|.n.:..x |
|000027e0| dd a4 73 74 72 69 70 5f | 6e 75 6d 62 65 72 73 3d |..strip_|numbers=|
|000027f0| a4 69 63 6f 6e 5f 73 65 | 74 28 32 29 0d 0f 82 05 |.icon_se|t(2)....|
|00002800| 3a 0d 0f 8c 21 dd a4 73 | 65 6e 64 5f 74 6f 5f 65 |:...!..s|end_to_e|
|00002810| 64 69 74 6f 72 3d a4 69 | 63 6f 6e 5f 73 65 74 28 |ditor=.i|con_set(|
|00002820| 33 29 0d 0f 96 05 3a 0d | 0f a0 22 dd a4 66 61 73 |3)....:.|.."..fas|
|00002830| 74 5f 63 6f 6e 76 65 72 | 73 69 6f 6e 3d a4 69 63 |t_conver|sion=.ic|
|00002840| 6f 6e 5f 73 65 74 28 34 | 29 0d 0f aa 05 3a 0d 0f |on_set(4|)....:..|
|00002850| b4 20 dd a4 73 61 76 65 | 5f 69 66 5f 6e 61 6d 65 |. ..save|_if_name|
|00002860| 64 3d a4 69 63 6f 6e 5f | 73 65 74 28 37 29 0d 0f |d=.icon_|set(7)..|
|00002870| be 05 3a 0d 0f c8 13 dd | f2 63 6f 6e 76 65 72 74 |..:.....|.convert|
|00002880| 5f 66 69 6c 65 73 0d 0f | d2 0b ea 20 70 25 2c 73 |_files..|... p%,s|
|00002890| 25 0d 0f dc 21 c8 99 22 | 57 69 6d 70 5f 53 6c 6f |%...!.."|Wimp_Slo|
|000028a0| 74 53 69 7a 65 22 2c 2d | 31 2c 2d 31 20 b8 20 2c |tSize",-|1,-1 . ,|
|000028b0| 70 25 0d 0f e6 21 c8 99 | 22 4f 53 5f 46 69 6c 65 |p%...!..|"OS_File|
|000028c0| 22 2c 35 2c 66 69 6c 65 | 31 24 20 b8 20 2c 2c 2c |",5,file|1$ . ,,,|
|000028d0| 2c 73 25 0d 0f f0 3e e7 | 28 73 25 2b 26 46 30 30 |,s%...>.|(s%+&F00|
|000028e0| 29 3e 70 25 20 f2 6f 6b | 28 22 4e 6f 74 20 65 6e |)>p% .ok|("Not en|
|000028f0| 6f 75 67 68 20 6d 65 6d | 6f 72 79 20 74 6f 20 6c |ough mem|ory to l|
|00002900| 6f 61 64 20 74 68 65 20 | 70 72 6f 67 72 61 6d 22 |oad the |program"|
|00002910| 29 0d 0f fa 33 e7 66 69 | 6c 65 5f 74 79 70 65 25 |)...3.fi|le_type%|
|00002920| 3d 26 46 46 46 20 f2 63 | 6f 6e 76 65 72 74 5f 74 |=&FFF .c|onvert_t|
|00002930| 65 78 74 20 8b 20 f2 63 | 6f 6e 76 65 72 74 5f 62 |ext . .c|onvert_b|
|00002940| 61 73 69 63 0d 10 04 05 | e1 0d 10 0e 05 3a 0d 10 |asic....|.....:..|
|00002950| 18 23 dd a4 64 6f 65 73 | 5f 74 68 69 73 5f 6c 6f |.#..does|_this_lo|
|00002960| 6f 6b 5f 6c 69 6b 65 5f | 42 41 53 49 43 28 73 24 |ok_like_|BASIC(s$|
|00002970| 29 0d 10 22 0b ea 20 63 | 25 2c 62 25 0d 10 2c 0c |)..".. c|%,b%..,.|
|00002980| 63 25 3d 8e 28 73 24 29 | 0d 10 36 42 f4 20 63 68 |c%=.(s$)|..6B. ch|
|00002990| 65 63 6b 20 66 69 72 73 | 74 20 62 79 74 65 20 61 |eck firs|t byte a|
|000029a0| 73 20 62 65 69 6e 67 20 | 26 44 20 61 6e 64 20 66 |s being |&D and f|
|000029b0| 6f 75 72 74 68 20 62 79 | 74 65 20 61 73 20 62 65 |ourth by|te as be|
|000029c0| 69 6e 67 20 6f 66 66 73 | 65 74 0d 10 40 0b f4 20 |ing offs|et..@.. |
|000029d0| 74 6f 20 26 44 0d 10 4a | 0b 62 25 3d 9a 23 63 25 |to &D..J|.b%=.#c%|
|000029e0| 0d 10 54 0c e7 62 25 3d | 31 33 20 8c 0d 10 5e 1b |..T..b%=|13 ...^.|
|000029f0| 20 62 25 3d 9a 23 63 25 | 2b 9a 23 63 25 3a cf 23 | b%=.#c%|+.#c%:.#|
|00002a00| 63 25 3d 9a 23 63 25 0d | 10 68 0c 20 62 25 3d 9a |c%=.#c%.|.h. b%=.|
|00002a10| 23 63 25 0d 10 72 05 cc | 0d 10 7c 24 20 f4 20 74 |#c%..r..|..|$ . t|
|00002a20| 68 69 73 20 64 6f 65 73 | 20 6e 6f 74 20 6c 6f 6f |his does| not loo|
|00002a30| 6b 20 6c 69 6b 65 20 42 | 41 53 49 43 0d 10 86 05 |k like B|ASIC....|
|00002a40| cd 0d 10 90 08 d9 23 63 | 25 0d 10 9a 0c 3d 28 62 |......#c|%....=(b|
|00002a50| 25 3d 31 33 29 0d 10 a4 | 05 3a 0d 10 ae 12 dd f2 |%=13)...|.:......|
|00002a60| 63 6f 6e 76 65 72 74 5f | 74 65 78 74 0d 10 b8 0e |convert_|text....|
|00002a70| ea 20 66 24 2c 62 25 2c | 63 25 0d 10 c2 29 62 25 |. f$,b%,|c%...)b%|
|00002a80| 3d a4 64 6f 65 73 5f 74 | 68 69 73 5f 6c 6f 6f 6b |=.does_t|his_look|
|00002a90| 5f 6c 69 6b 65 5f 42 41 | 53 49 43 28 66 69 6c 65 |_like_BA|SIC(file|
|00002aa0| 31 24 29 0d 10 cc 09 e7 | 62 25 20 8c 0d 10 d6 52 |1$).....|b% ....R|
|00002ab0| 20 62 25 3d 28 a4 77 61 | 72 6e 69 6e 67 28 22 54 | b%=(.wa|rning("T|
|00002ac0| 68 69 73 20 6c 6f 6f 6b | 73 20 6c 69 6b 65 20 61 |his look|s like a|
|00002ad0| 20 42 41 53 49 43 20 66 | 69 6c 65 2e 20 50 72 6f | BASIC f|ile. Pro|
|00002ae0| 63 65 65 64 20 74 6f 20 | 63 6f 6e 76 65 72 74 20 |ceed to |convert |
|00002af0| 74 6f 20 42 41 53 49 43 | 3f 22 29 3d 32 29 0d 10 |to BASIC|?")=2)..|
|00002b00| e0 05 cd 0d 10 ea 0c e7 | ac 28 62 25 29 20 8c 0d |........|.(b%) ..|
|00002b10| 10 f4 15 20 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 |... .."H|ourglass|
|00002b20| 5f 4f 6e 22 0d 10 fe 37 | 20 66 24 3d a4 63 6f 6e |_On"...7| f$=.con|
|00002b30| 76 65 72 74 5f 74 6f 5f | 62 61 73 69 63 28 66 69 |vert_to_|basic(fi|
|00002b40| 6c 65 31 24 2c 22 3c 42 | 61 73 54 78 74 24 44 69 |le1$,"<B|asTxt$Di|
|00002b50| 72 3e 2e 4f 75 74 70 75 | 74 22 29 0d 11 08 16 20 |r>.Outpu|t").... |
|00002b60| c8 99 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 66 66 |.."Hourg|lass_Off|
|00002b70| 22 0d 11 12 16 20 e7 a4 | 73 61 76 65 5f 69 66 5f |".... ..|save_if_|
|00002b80| 6e 61 6d 65 64 20 8c 0d | 11 1c 0f 20 20 e7 66 24 |named ..|...  .f$|
|00002b90| 3c 3e 22 22 20 8c 0d 11 | 26 15 20 20 20 e7 a7 66 |<>"" ...|&.   ..f|
|00002ba0| 24 2c 22 2e 22 29 3c 3e | 30 20 8c 0d 11 30 1f 20 |$,".")<>|0 ...0. |
|00002bb0| 20 20 20 e7 20 a4 66 69 | 6c 65 6e 61 6d 65 5f 76 |   . .fi|lename_v|
|00002bc0| 61 6c 69 64 28 66 24 29 | 20 8c 0d 11 3a 18 20 20 |alid(f$)| ...:.  |
|00002bd0| 20 20 20 f2 73 61 76 65 | 66 69 6c 65 28 b9 2c 66 |   .save|file(.,f|
|00002be0| 24 29 0d 11 44 0a 20 20 | 20 20 20 e1 0d 11 4e 09 |$)..D.  |   ...N.|
|00002bf0| 20 20 20 20 cd 0d 11 58 | 08 20 20 20 cd 0d 11 62 |    ...X|.   ...b|
|00002c00| 07 20 20 cd 0d 11 6c 06 | 20 cd 0d 11 76 15 20 24 |.  ...l.| ...v. $|
|00002c10| 66 69 6c 65 6e 61 6d 65 | 66 66 62 25 3d 66 24 0d |filename|ffb%=f$.|
|00002c20| 11 80 2b 20 f2 70 6f 70 | 75 70 5f 73 61 76 65 64 |..+ .pop|up_saved|
|00002c30| 62 6f 78 28 73 61 76 65 | 66 66 62 25 2c 66 69 6c |box(save|ffb%,fil|
|00002c40| 65 6e 61 6d 65 66 66 62 | 25 29 0d 11 8a 05 cd 0d |enameffb|%)......|
|00002c50| 11 94 05 e1 0d 11 9e 05 | 3a 0d 11 a8 18 dd a4 66 |........|:......f|
|00002c60| 69 6c 65 6e 61 6d 65 5f | 76 61 6c 69 64 28 66 24 |ilename_|valid(f$|
|00002c70| 29 0d 11 b2 0b ea 20 66 | 25 2c 63 25 0d 11 bc 07 |)..... f|%,c%....|
|00002c80| ea 20 85 0d 11 c6 08 66 | 25 3d b9 0d 11 d0 0e ee |. .....f|%=......|
|00002c90| 20 85 20 ea 20 66 25 3d | a3 0d 11 da 10 e7 66 25 | . . f%=|......f%|
|00002ca0| 20 63 25 3d ae 28 66 24 | 29 0d 11 e4 0f e7 63 25 | c%=.(f$|).....c%|
|00002cb0| 3c 3e 30 20 d9 23 63 25 | 0d 11 ee 07 3d 66 25 0d |<>0 .#c%|....=f%.|
|00002cc0| 11 f8 05 3a 0d 12 02 13 | dd f2 63 6f 6e 76 65 72 |...:....|..conver|
|00002cd0| 74 5f 62 61 73 69 63 0d | 12 0c 0b ea 20 62 25 2c |t_basic.|.... b%,|
|00002ce0| 63 25 0d 12 16 29 62 25 | 3d a4 64 6f 65 73 5f 74 |c%...)b%|=.does_t|
|00002cf0| 68 69 73 5f 6c 6f 6f 6b | 5f 6c 69 6b 65 5f 42 41 |his_look|_like_BA|
|00002d00| 53 49 43 28 66 69 6c 65 | 31 24 29 0d 12 20 0c e7 |SIC(file|1$).. ..|
|00002d10| ac 28 62 25 29 20 8c 0d | 12 2a 59 20 62 25 3d 28 |.(b%) ..|.*Y b%=(|
|00002d20| a4 77 61 72 6e 69 6e 67 | 28 22 54 68 69 73 20 64 |.warning|("This d|
|00002d30| 6f 65 73 20 6e 6f 74 20 | 6c 6f 6f 6b 20 6c 69 6b |oes not |look lik|
|00002d40| 65 20 61 20 42 41 53 49 | 43 20 66 69 6c 65 2e 20 |e a BASI|C file. |
|00002d50| 50 72 6f 63 65 65 64 20 | 74 6f 20 63 6f 6e 76 65 |Proceed |to conve|
|00002d60| 72 74 20 74 6f 20 74 65 | 78 74 3f 22 29 3d 31 29 |rt to te|xt?")=1)|
|00002d70| 0d 12 34 05 cd 0d 12 3e | 09 e7 62 25 20 8c 0d 12 |..4....>|..b% ...|
|00002d80| 48 15 20 c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |H. .."Ho|urglass_|
|00002d90| 4f 6e 22 0d 12 52 33 20 | f2 63 6f 6e 76 65 72 74 |On"..R3 |.convert|
|00002da0| 5f 74 6f 5f 74 65 78 74 | 28 66 69 6c 65 31 24 2c |_to_text|(file1$,|
|00002db0| 22 3c 42 61 73 54 78 74 | 24 44 69 72 3e 2e 4f 75 |"<BasTxt|$Dir>.Ou|
|00002dc0| 74 70 75 74 22 29 0d 12 | 5c 16 20 c8 99 22 48 6f |tput")..|\. .."Ho|
|00002dd0| 75 72 67 6c 61 73 73 5f | 4f 66 66 22 0d 12 66 2d |urglass_|Off"..f-|
|00002de0| 20 c8 99 22 4f 53 5f 46 | 69 6c 65 22 2c 35 2c 22 | .."OS_F|ile",5,"|
|00002df0| 3c 42 61 73 54 78 74 24 | 44 69 72 3e 2e 4f 75 74 |<BasTxt$|Dir>.Out|
|00002e00| 70 75 74 22 20 b8 20 63 | 25 0d 12 70 0c 20 e7 63 |put" . c|%..p. .c|
|00002e10| 25 3d 31 20 8c 0d 12 7a | 18 20 20 e7 a4 73 65 6e |%=1 ...z|.  ..sen|
|00002e20| 64 5f 74 6f 5f 65 64 69 | 74 6f 72 20 8c 0d 12 84 |d_to_edi|tor ....|
|00002e30| 1a 20 20 20 e7 65 64 69 | 74 5f 74 61 73 6b 69 64 |.   .edi|t_taskid|
|00002e40| 25 3c 3e 2d 31 20 8c 0d | 12 8e 32 20 20 20 20 f2 |%<>-1 ..|..2    .|
|00002e50| 64 72 61 67 5f 73 61 76 | 65 66 69 6c 65 28 2d 32 |drag_sav|efile(-2|
|00002e60| 2c 30 2c 30 2c 30 2c 26 | 46 46 46 2c 65 64 69 74 |,0,0,0,&|FFF,edit|
|00002e70| 5f 74 61 73 6b 69 64 25 | 29 0d 12 98 08 20 20 20 |_taskid%|)....   |
|00002e80| cc 0d 12 a2 17 20 20 20 | 20 21 71 32 25 3d 28 34 |.....   | !q2%=(4|
|00002e90| 38 2b 31 39 29 80 ac 33 | 0d 12 ac 10 20 20 20 20 |8+19)..3|....    |
|00002ea0| 71 32 25 21 31 32 3d 30 | 0d 12 b6 10 20 20 20 20 |q2%!12=0|....    |
|00002eb0| 71 32 25 21 31 36 3d 35 | 0d 12 c0 11 20 20 20 20 |q2%!16=5|....    |
|00002ec0| 71 32 25 21 33 36 3d 2d | 31 0d 12 ca 13 20 20 20 |q2%!36=-|1....   |
|00002ed0| 20 71 32 25 21 34 30 3d | 26 46 46 46 0d 12 d4 27 | q2%!40=|&FFF...'|
|00002ee0| 20 20 20 20 24 28 71 32 | 25 2b 34 34 29 3d 22 3c |    $(q2|%+44)="<|
|00002ef0| 42 61 73 54 78 74 24 44 | 69 72 3e 2e 4f 75 74 70 |BasTxt$D|ir>.Outp|
|00002f00| 75 74 22 0d 12 de 16 20 | 20 20 20 3f 28 71 32 25 |ut".... |   ?(q2%|
|00002f10| 2b 34 34 2b 31 39 29 3d | 30 0d 12 e8 25 20 20 20 |+44+19)=|0...%   |
|00002f20| 20 c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 | .."Wimp|_SendMes|
|00002f30| 73 61 67 65 22 2c 31 38 | 2c 71 32 25 2c 30 0d 12 |sage",18|,q2%,0..|
|00002f40| f2 08 20 20 20 cd 0d 12 | fc 07 20 20 cc 0d 13 06 |..   ...|..  ....|
|00002f50| 17 20 20 20 24 66 69 6c | 65 6e 61 6d 65 66 66 66 |.   $fil|enamefff|
|00002f60| 25 3d 22 22 0d 13 10 2d | 20 20 20 f2 70 6f 70 75 |%=""...-|   .popu|
|00002f70| 70 5f 73 61 76 65 64 62 | 6f 78 28 73 61 76 65 66 |p_savedb|ox(savef|
|00002f80| 66 66 25 2c 66 69 6c 65 | 6e 61 6d 65 66 66 66 25 |ff%,file|namefff%|
|00002f90| 29 0d 13 1a 07 20 20 cd | 0d 13 24 06 20 cd 0d 13 |)....  .|..$. ...|
|00002fa0| 2e 05 cd 0d 13 38 05 e1 | 0d 13 42 05 3a 0d 13 4c |.....8..|..B.:..L|
|00002fb0| 1b dd f2 70 6f 70 75 70 | 5f 73 61 76 65 64 62 6f |...popup|_savedbo|
|00002fc0| 78 28 73 25 2c 66 25 29 | 0d 13 56 08 ea 20 78 25 |x(s%,f%)|..V.. x%|
|00002fd0| 0d 13 60 0c 73 61 76 65 | 25 3d 73 25 0d 13 6a 10 |..`.save|%=s%..j.|
|00002fe0| 66 69 6c 65 6e 61 6d 65 | 25 3d 66 25 0d 13 74 1b |filename|%=f%..t.|
|00002ff0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |.."Wimp_|CreateMe|
|00003000| 6e 75 22 2c 2c 2d 31 0d | 13 7e 2f e7 24 66 69 6c |nu",,-1.|.~/.$fil|
|00003010| 65 6e 61 6d 65 25 3d 22 | 22 20 24 66 69 6c 65 6e |ename%="|" $filen|
|00003020| 61 6d 65 25 3d a4 6c 65 | 61 66 6e 61 6d 65 28 66 |ame%=.le|afname(f|
|00003030| 69 6c 65 31 24 29 0d 13 | 88 3c 21 71 31 25 3d 2d |ile1$)..|.<!q1%=-|
|00003040| 31 3a 71 31 25 21 34 3d | 69 63 25 3a c8 99 22 57 |1:q1%!4=|ic%:.."W|
|00003050| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00003060| 22 2c 2c 71 31 25 3a 78 | 25 3d 71 31 25 21 38 2d |",,q1%:x|%=q1%!8-|
|00003070| 36 34 0d 13 92 2b 21 71 | 31 25 3d 73 61 76 65 25 |64...+!q|1%=save%|
|00003080| 3a c8 99 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |:.."Wimp|_GetWind|
|00003090| 6f 77 53 74 61 74 65 22 | 2c 2c 71 31 25 0d 13 9c |owState"|,,q1%...|
|000030a0| 1c 71 31 25 21 31 32 3d | 28 71 31 25 21 31 32 2d |.q1%!12=|(q1%!12-|
|000030b0| 71 31 25 21 34 29 2b 78 | 25 0d 13 a6 0c 71 31 25 |q1%!4)+x|%....q1%|
|000030c0| 21 34 3d 78 25 0d 13 b0 | 1c 71 31 25 21 31 36 3d |!4=x%...|.q1%!16=|
|000030d0| 28 71 31 25 21 31 36 2d | 71 31 25 21 38 29 2b 39 |(q1%!16-|q1%!8)+9|
|000030e0| 36 0d 13 ba 0c 71 31 25 | 21 38 3d 39 36 0d 13 c4 |6....q1%|!8=96...|
|000030f0| 1c c8 99 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |..."Wimp|_OpenWin|
|00003100| 64 6f 77 22 2c 2c 71 31 | 25 0d 13 ce 3a c8 99 22 |dow",,q1|%...:.."|
|00003110| 57 69 6d 70 5f 53 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Set|CaretPos|
|00003120| 69 74 69 6f 6e 22 2c 73 | 61 76 65 25 2c 32 2c 2d |ition",s|ave%,2,-|
|00003130| 31 2c 2d 31 2c 2d 31 2c | a9 24 66 69 6c 65 6e 61 |1,-1,-1,|.$filena|
|00003140| 6d 65 25 0d 13 d8 05 e1 | 0d 13 e2 05 3a 0d 13 ec |me%.....|....:...|
|00003150| 1c dd f2 63 6f 6e 76 65 | 72 74 5f 74 6f 5f 74 65 |...conve|rt_to_te|
|00003160| 78 74 28 73 24 2c 64 24 | 29 0d 13 f6 11 ea 20 70 |xt(s$,d$|)..... p|
|00003170| 25 2c 63 25 2c 64 25 2c | 6c 24 0d 14 00 1c ea 20 |%,c%,d%,|l$..... |
|00003180| 61 6c 69 61 73 74 77 69 | 6e 24 2c 20 61 6c 69 61 |aliastwi|n$, alia|
|00003190| 73 74 77 69 6e 25 0d 14 | 0a 18 ea 20 61 6c 69 61 |stwin%..|... alia|
|000031a0| 73 62 74 24 2c 20 61 6c | 69 61 73 62 74 25 0d 14 |sbt$, al|iasbt%..|
|000031b0| 14 1e ea 20 70 72 69 6e | 74 65 72 32 35 35 24 2c |... prin|ter255$,|
|000031c0| 20 70 72 69 6e 74 65 72 | 32 35 35 25 0d 14 1e 18 | printer|255%....|
|000031d0| ea 20 69 67 6e 6f 72 65 | 31 25 2c 20 69 67 6e 6f |. ignore|1%, igno|
|000031e0| 72 65 32 25 0d 14 28 3c | ff 22 43 6f 70 79 20 22 |re2%..(<|."Copy "|
|000031f0| 2b 73 24 2b 22 20 3c 42 | 61 73 54 78 74 24 44 69 |+s$+" <B|asTxt$Di|
|00003200| 72 3e 2e 54 65 6d 70 20 | 7e 41 7e 43 7e 44 46 7e |r>.Temp |~A~C~DF~|
|00003210| 4c 7e 4e 7e 50 7e 51 7e | 52 7e 53 7e 54 7e 56 22 |L~N~P~Q~|R~S~T~V"|
|00003220| 0d 14 32 17 e7 a4 66 61 | 73 74 5f 63 6f 6e 76 65 |..2...fa|st_conve|
|00003230| 72 73 69 6f 6e 20 8c 0d | 14 3c 37 20 61 6c 69 61 |rsion ..|.<7 alia|
|00003240| 73 74 77 69 6e 25 3d a4 | 72 65 61 64 5f 76 61 72 |stwin%=.|read_var|
|00003250| 69 61 62 6c 65 28 22 41 | 6c 69 61 73 24 54 77 69 |iable("A|lias$Twi|
|00003260| 6e 22 2c 61 6c 69 61 73 | 74 77 69 6e 24 29 0d 14 |n",alias|twin$)..|
|00003270| 46 31 20 61 6c 69 61 73 | 62 74 25 3d a4 72 65 61 |F1 alias|bt%=.rea|
|00003280| 64 5f 76 61 72 69 61 62 | 6c 65 28 22 41 6c 69 61 |d_variab|le("Alia|
|00003290| 73 24 42 54 22 2c 61 6c | 69 61 73 62 74 24 29 0d |s$BT",al|iasbt$).|
|000032a0| 14 50 78 20 ff 28 22 53 | 65 74 20 41 6c 69 61 73 |.Px .("S|et Alias|
|000032b0| 24 54 77 69 6e 20 53 65 | 74 45 76 61 6c 20 41 6c |$Twin Se|tEval Al|
|000032c0| 69 61 73 24 42 54 20 22 | 22 53 61 76 65 20 22 2b |ias$BT "|"Save "+|
|000032d0| 64 24 2b 22 20 22 22 2b | 28 28 22 22 25 30 22 22 |d$+" ""+|((""%0""|
|000032e0| 29 4c 45 46 54 39 29 52 | 49 47 48 54 38 2b 22 22 |)LEFT9)R|IGHT8+""|
|000032f0| 20 22 22 2b 28 28 22 22 | 25 30 22 22 29 52 49 47 | ""+((""|%0"")RIG|
|00003300| 48 54 31 34 29 4c 45 46 | 54 38 7c 4d 42 54 7c 4d |HT14)LEF|T8|MBT|M|
|00003310| 42 41 53 49 43 22 29 0d | 14 5a 24 20 f2 73 63 72 |BASIC").|.Z$ .scr|
|00003320| 69 70 74 32 28 22 3c 42 | 61 73 54 78 74 24 44 69 |ipt2("<B|asTxt$Di|
|00003330| 72 3e 2e 54 65 6d 70 22 | 2c b9 29 0d 14 64 2c 20 |r>.Temp"|,.)..d, |
|00003340| f2 72 75 6e 5f 73 63 72 | 69 70 74 28 32 2c 22 3c |.run_scr|ipt(2,"<|
|00003350| 42 61 73 54 78 74 24 44 | 69 72 3e 2e 54 65 6d 70 |BasTxt$D|ir>.Temp|
|00003360| 22 2c 64 24 2c b9 29 0d | 14 6e 38 20 f2 77 72 69 |",d$,.).|.n8 .wri|
|00003370| 74 65 5f 76 61 72 69 61 | 62 6c 65 28 22 41 6c 69 |te_varia|ble("Ali|
|00003380| 61 73 24 54 77 69 6e 22 | 2c 61 6c 69 61 73 74 77 |as$Twin"|,aliastw|
|00003390| 69 6e 24 2c 61 6c 69 61 | 73 74 77 69 6e 25 29 0d |in$,alia|stwin%).|
|000033a0| 14 78 32 20 f2 77 72 69 | 74 65 5f 76 61 72 69 61 |.x2 .wri|te_varia|
|000033b0| 62 6c 65 28 22 41 6c 69 | 61 73 24 42 54 22 2c 61 |ble("Ali|as$BT",a|
|000033c0| 6c 69 61 73 62 74 24 2c | 61 6c 69 61 73 62 74 25 |liasbt$,|aliasbt%|
|000033d0| 29 0d 14 82 05 cc 0d 14 | 8c 3e 20 70 72 69 6e 74 |).......|.> print|
|000033e0| 65 72 32 35 35 25 3d a4 | 72 65 61 64 5f 76 61 72 |er255%=.|read_var|
|000033f0| 69 61 62 6c 65 28 22 50 | 72 69 6e 74 65 72 54 79 |iable("P|rinterTy|
|00003400| 70 65 24 32 35 35 22 2c | 70 72 69 6e 74 65 72 32 |pe$255",|printer2|
|00003410| 35 35 24 29 0d 14 96 21 | 20 ff 28 22 53 65 74 20 |55$)...!| .("Set |
|00003420| 50 72 69 6e 74 65 72 54 | 79 70 65 24 32 35 35 20 |PrinterT|ype$255 |
|00003430| 22 2b 64 24 29 0d 14 a0 | 1c 20 c8 99 22 4f 53 5f |"+d$)...|. .."OS_|
|00003440| 42 79 74 65 22 2c 35 2c | 32 35 35 20 b8 20 2c 70 |Byte",5,|255 . ,p|
|00003450| 25 0d 14 aa 23 20 c8 99 | 22 4f 53 5f 42 79 74 65 |%...# ..|"OS_Byte|
|00003460| 22 2c 32 34 36 2c 31 30 | 20 b8 20 2c 69 67 6e 6f |",246,10| . ,igno|
|00003470| 72 65 31 25 0d 14 b4 22 | 20 c8 99 22 4f 53 5f 42 |re1%..."| .."OS_B|
|00003480| 79 74 65 22 2c 31 38 32 | 2c 30 20 b8 20 2c 69 67 |yte",182|,0 . ,ig|
|00003490| 6e 6f 72 65 32 25 0d 14 | be 24 20 f2 73 63 72 69 |nore2%..|.$ .scri|
|000034a0| 70 74 31 28 22 3c 42 61 | 73 54 78 74 24 44 69 72 |pt1("<Ba|sTxt$Dir|
|000034b0| 3e 2e 54 65 6d 70 22 2c | b9 29 0d 14 c8 2c 20 f2 |>.Temp",|.)..., .|
|000034c0| 72 75 6e 5f 73 63 72 69 | 70 74 28 32 2c 22 3c 42 |run_scri|pt(2,"<B|
|000034d0| 61 73 54 78 74 24 44 69 | 72 3e 2e 54 65 6d 70 22 |asTxt$Di|r>.Temp"|
|000034e0| 2c 64 24 2c b9 29 0d 14 | d2 15 20 c8 99 22 4f 53 |,d$,.)..|.. .."OS|
|000034f0| 5f 42 79 74 65 22 2c 35 | 2c 70 25 0d 14 dc 1d 20 |_Byte",5|,p%.... |
|00003500| c8 99 22 4f 53 5f 42 79 | 74 65 22 2c 32 34 36 2c |.."OS_By|te",246,|
|00003510| 69 67 6e 6f 72 65 31 25 | 0d 14 e6 1d 20 c8 99 22 |ignore1%|.... .."|
|00003520| 4f 53 5f 42 79 74 65 22 | 2c 31 38 32 2c 69 67 6e |OS_Byte"|,182,ign|
|00003530| 6f 72 65 32 25 0d 14 f0 | 3f 20 f2 77 72 69 74 65 |ore2%...|? .write|
|00003540| 5f 76 61 72 69 61 62 6c | 65 28 22 50 72 69 6e 74 |_variabl|e("Print|
|00003550| 65 72 54 79 70 65 24 32 | 35 35 22 2c 70 72 69 6e |erType$2|55",prin|
|00003560| 74 65 72 32 35 35 24 2c | 70 72 69 6e 74 65 72 32 |ter255$,|printer2|
|00003570| 35 35 25 29 0d 14 fa 1e | 20 64 25 3d ae 28 22 3c |55%)....| d%=.("<|
|00003580| 42 61 73 54 78 74 24 44 | 69 72 3e 2e 54 65 6d 70 |BasTxt$D|ir>.Temp|
|00003590| 22 29 0d 15 04 0d 20 63 | 25 3d 8e 28 64 24 29 0d |").... c|%=.(d$).|
|000035a0| 15 0e 24 20 6c 24 3d be | 23 63 25 3a f4 20 6c 6f |..$ l$=.|#c%:. lo|
|000035b0| 73 65 20 74 68 65 20 4c | 49 53 54 20 63 6f 6d 6d |se the L|IST comm|
|000035c0| 61 6e 64 0d 15 18 0e 20 | c8 95 20 ac 20 c5 23 63 |and.... |.. . .#c|
|000035d0| 25 0d 15 22 0d 20 20 6c | 24 3d be 23 63 25 0d 15 |%..".  l|$=.#c%..|
|000035e0| 2c 34 20 20 e7 ac c5 23 | 63 25 20 d5 23 64 25 2c |,4  ...#|c% .#d%,|
|000035f0| 6c 24 3a f4 20 6c 6f 73 | 65 73 20 6c 61 73 74 20 |l$:. los|es last |
|00003600| 6c 69 6e 65 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |line aut|omatical|
|00003610| 6c 79 0d 15 36 06 20 ce | 0d 15 40 09 20 d9 23 64 |ly..6. .|..@. .#d|
|00003620| 25 0d 15 4a 09 20 d9 23 | 63 25 0d 15 54 3d 20 ff |%..J. .#|c%..T= .|
|00003630| 22 43 6f 70 79 20 3c 42 | 61 73 54 78 74 24 44 69 |"Copy <B|asTxt$Di|
|00003640| 72 3e 2e 54 65 6d 70 20 | 22 2b 64 24 2b 22 20 7e |r>.Temp |"+d$+" ~|
|00003650| 41 7e 43 7e 44 46 7e 4c | 7e 4e 7e 50 7e 51 7e 52 |A~C~DF~L|~N~P~Q~R|
|00003660| 7e 53 7e 54 7e 56 22 0d | 15 5e 05 cd 0d 15 68 1e |~S~T~V".|.^....h.|
|00003670| 2a 25 52 65 6d 6f 76 65 | 20 3c 42 61 73 54 78 74 |*%Remove| <BasTxt|
|00003680| 24 44 69 72 3e 2e 54 65 | 6d 70 0d 15 72 19 c8 99 |$Dir>.Te|mp..r...|
|00003690| 22 4f 53 5f 46 69 6c 65 | 22 2c 35 2c 64 24 20 b8 |"OS_File|",5,d$ .|
|000036a0| 20 63 25 0d 15 7c 21 e7 | 63 25 3d 31 20 ff 28 22 | c%..|!.|c%=1 .("|
|000036b0| 53 65 74 74 79 70 65 20 | 22 2b 64 24 2b 22 20 46 |Settype |"+d$+" F|
|000036c0| 46 46 22 29 0d 15 86 05 | e1 0d 15 90 05 3a 0d 15 |FF")....|.....:..|
|000036d0| 9a 21 dd a4 72 65 61 64 | 5f 76 61 72 69 61 62 6c |.!..read|_variabl|
|000036e0| 65 28 6e 61 6d 65 24 2c | f8 20 76 61 72 24 29 0d |e(name$,|. var$).|
|000036f0| 15 a4 24 f4 20 72 65 74 | 75 72 6e 73 20 74 79 70 |..$. ret|urns typ|
|00003700| 65 20 6f 66 20 76 61 72 | 69 61 62 6c 65 20 66 6f |e of var|iable fo|
|00003710| 75 6e 64 0d 15 ae 0e ea | 20 73 25 2c 74 25 2c 69 |und.....| s%,t%,i|
|00003720| 25 0d 15 b8 33 c8 99 22 | 58 4f 53 5f 52 65 61 64 |%...3.."|XOS_Read|
|00003730| 56 61 72 56 61 6c 22 2c | 6e 61 6d 65 24 2c 71 32 |VarVal",|name$,q2|
|00003740| 25 2c 32 35 36 2c 30 2c | 30 20 b8 20 2c 2c 73 25 |%,256,0,|0 . ,,s%|
|00003750| 2c 2c 74 25 0d 15 c2 0b | e7 73 25 3d 30 20 8c 0d |,,t%....|.s%=0 ..|
|00003760| 15 cc 08 20 3d 2d 31 0d | 15 d6 05 cc 0d 15 e0 0c |... =-1.|........|
|00003770| 20 76 61 72 24 3d 22 22 | 0d 15 ea 0f 20 e3 69 25 | var$=""|.... .i%|
|00003780| 3d 30 b8 73 25 2d 31 0d | 15 f4 15 20 20 76 61 72 |=0.s%-1.|...  var|
|00003790| 24 2b 3d bd 28 71 32 25 | 3f 69 25 29 0d 15 fe 06 |$+=.(q2%|?i%)....|
|000037a0| 20 ed 0d 16 08 08 20 3d | 74 25 0d 16 12 05 cd 0d | ..... =|t%......|
|000037b0| 16 1c 05 3a 0d 16 26 2a | dd f2 77 72 69 74 65 5f |...:..&*|..write_|
|000037c0| 76 61 72 69 61 62 6c 65 | 28 6e 61 6d 65 24 2c 63 |variable|(name$,c|
|000037d0| 6f 6e 74 65 6e 74 24 2c | 74 79 70 65 25 29 0d 16 |ontent$,|type%)..|
|000037e0| 30 0f e7 74 79 70 65 25 | 3d 2d 31 20 8c 0d 16 3a |0..type%|=-1 ...:|
|000037f0| 16 20 ff 28 22 55 6e 73 | 65 74 20 22 2b 6e 61 6d |. .("Uns|et "+nam|
|00003800| 65 24 29 0d 16 44 05 cc | 0d 16 4e 36 20 c8 99 22 |e$)..D..|..N6 .."|
|00003810| 4f 53 5f 53 65 74 56 61 | 72 56 61 6c 22 2c 6e 61 |OS_SetVa|rVal",na|
|00003820| 6d 65 24 2c 63 6f 6e 74 | 65 6e 74 24 2c a9 63 6f |me$,cont|ent$,.co|
|00003830| 6e 74 65 6e 74 24 2c 30 | 2c 74 79 70 65 25 0d 16 |ntent$,0|,type%..|
|00003840| 58 05 cd 0d 16 62 05 e1 | 0d 16 6c 05 3a 0d 16 76 |X....b..|..l.:..v|
|00003850| 11 dd a4 77 61 72 6e 69 | 6e 67 28 73 24 29 0d 16 |...warni|ng(s$)..|
|00003860| 80 08 ea 20 72 25 0d 16 | 8a 19 21 71 31 25 3d 30 |... r%..|..!q1%=0|
|00003870| 3a 24 28 71 31 25 2b 34 | 29 3d 73 24 2b bd 30 0d |:$(q1%+4|)=s$+.0.|
|00003880| 16 94 3f c8 99 22 57 69 | 6d 70 5f 52 65 70 6f 72 |..?.."Wi|mp_Repor|
|00003890| 74 45 72 72 6f 72 22 2c | 71 31 25 2c 25 31 30 31 |tError",|q1%,%101|
|000038a0| 31 31 2c 22 57 61 72 6e | 69 6e 67 20 66 72 6f 6d |11,"Warn|ing from|
|000038b0| 20 42 61 73 54 78 74 22 | 20 b8 20 2c 72 25 0d 16 | BasTxt"| . ,r%..|
|000038c0| 9e 07 3d 72 25 0d 16 a8 | 05 3a 0d 16 b2 1d dd a4 |..=r%...|.:......|
|000038d0| 63 6f 6e 76 65 72 74 5f | 74 6f 5f 62 61 73 69 63 |convert_|to_basic|
|000038e0| 28 73 24 2c 64 24 29 0d | 16 bc 0e ea 20 63 25 2c |(s$,d$).|.... c%,|
|000038f0| 62 25 2c 66 24 0d 16 c6 | 0c 63 25 3d 8e 28 73 24 |b%,f$...|.c%=.(s$|
|00003900| 29 0d 16 d0 1c 66 24 3d | be 23 63 25 3a f4 20 67 |)....f$=|.#c%:. g|
|00003910| 65 74 20 66 69 72 73 74 | 20 6c 69 6e 65 0d 16 da |et first| line...|
|00003920| 0f cf 23 63 25 3d a2 23 | 63 25 2d 31 0d 16 e4 0b |..#c%=.#|c%-1....|
|00003930| 62 25 3d 9a 23 63 25 0d | 16 ee 08 d9 23 63 25 0d |b%=.#c%.|....#c%.|
|00003940| 16 f8 3d e7 62 25 3c 3e | 31 33 20 80 20 62 25 3c |..=.b%<>|13 . b%<|
|00003950| 3e 31 30 20 f2 6f 6b 28 | 22 54 65 78 74 20 66 69 |>10 .ok(|"Text fi|
|00003960| 6c 65 20 6d 75 73 74 20 | 65 6e 64 20 77 69 74 68 |le must |end with|
|00003970| 20 61 20 6e 65 77 6c 69 | 6e 65 22 29 0d 17 02 13 | a newli|ne")....|
|00003980| f2 73 63 72 69 70 74 33 | 28 73 24 2c 64 24 29 0d |.script3|(s$,d$).|
|00003990| 17 0c 1a f2 72 75 6e 5f | 73 63 72 69 70 74 28 31 |....run_|script(1|
|000039a0| 2c 73 24 2c 64 24 2c a3 | 29 0d 17 16 18 3d a4 69 |,s$,d$,.|)....=.i|
|000039b0| 6e 63 6f 72 65 66 69 6c | 65 6e 61 6d 65 28 66 24 |ncorefil|ename(f$|
|000039c0| 29 0d 17 20 05 3a 0d 17 | 2a 18 dd a4 69 6e 63 6f |).. .:..|*...inco|
|000039d0| 72 65 66 69 6c 65 6e 61 | 6d 65 28 6c 24 29 0d 17 |refilena|me(l$)..|
|000039e0| 34 08 ea 20 69 25 0d 17 | 3e 0f e7 6c 24 3d 22 22 |4.. i%..|>..l$=""|
|000039f0| 20 3a 3d 22 22 0d 17 48 | 20 c8 95 c0 6c 24 2c 31 | :=""..H| ...l$,1|
|00003a00| 29 3d 22 20 22 20 6c 24 | 3d c1 6c 24 2c 32 29 3a |)=" " l$|=.l$,2):|
|00003a10| ef 34 32 3a ce 0d 17 52 | 0f e7 6c 24 3d 22 22 20 |.42:...R|..l$="" |
|00003a20| 3a 3d 22 22 0d 17 5c 33 | c8 95 a7 22 31 32 33 34 |:=""..\3|..."1234|
|00003a30| 35 36 37 38 39 30 22 2c | c0 6c 24 2c 31 29 29 3c |567890",|.l$,1))<|
|00003a40| 3e 30 20 f1 c0 6c 24 2c | 31 29 3b 3a 6c 24 3d c1 |>0 ..l$,|1);:l$=.|
|00003a50| 6c 24 2c 32 29 3a ce 0d | 17 66 0f e7 6c 24 3d 22 |l$,2):..|.f..l$="|
|00003a60| 22 20 3a 3d 22 22 0d 17 | 70 1c c8 95 c0 6c 24 2c |" :=""..|p....l$,|
|00003a70| 31 29 3d 22 20 22 20 6c | 24 3d c1 6c 24 2c 32 29 |1)=" " l|$=.l$,2)|
|00003a80| 3a ce 0d 17 7a 17 e7 c0 | 6c 24 2c 33 29 3c 3e 22 |:...z...|l$,3)<>"|
|00003a90| 52 45 4d 22 20 3a 3d 22 | 22 0d 17 84 26 6c 24 3d |REM" :="|"...&l$=|
|00003aa0| c1 6c 24 2c 34 29 3a f4 | 20 6c 6f 73 65 20 74 68 |.l$,4):.| lose th|
|00003ab0| 65 20 52 45 4d 20 73 74 | 61 74 65 6d 65 6e 74 0d |e REM st|atement.|
|00003ac0| 17 8e 0f e7 6c 24 3d 22 | 22 20 3a 3d 22 22 0d 17 |....l$="|" :=""..|
|00003ad0| 98 1d c8 95 20 c0 6c 24 | 2c 31 29 3d 22 20 22 20 |.... .l$|,1)=" " |
|00003ae0| 6c 24 3d c1 6c 24 2c 32 | 29 3a ce 0d 17 a2 15 e7 |l$=.l$,2|):......|
|00003af0| c0 6c 24 2c 31 29 3c 3e | 22 3e 22 20 3a 3d 22 22 |.l$,1)<>|">" :=""|
|00003b00| 0d 17 ac 1f 6c 24 3d c1 | 6c 24 2c 32 29 3a f4 20 |....l$=.|l$,2):. |
|00003b10| 6c 6f 73 65 20 74 68 65 | 20 3e 20 63 68 61 72 0d |lose the| > char.|
|00003b20| 17 b6 0f e7 6c 24 3d 22 | 22 20 3a 3d 22 22 0d 17 |....l$="|" :=""..|
|00003b30| c0 1d c8 95 20 c0 6c 24 | 2c 31 29 3d 22 20 22 20 |.... .l$|,1)=" " |
|00003b40| 6c 24 3d c1 6c 24 2c 32 | 29 3a ce 0d 17 ca 0f e7 |l$=.l$,2|):......|
|00003b50| 6c 24 3d 22 22 20 3a 3d | 22 22 0d 17 d4 1e 69 25 |l$="" :=|""....i%|
|00003b60| 3d a7 6c 24 2c 22 20 22 | 29 3a e7 69 25 3d 30 20 |=.l$," "|):.i%=0 |
|00003b70| 69 25 3d a9 6c 24 2b 31 | 0d 17 de 0e 3d c0 6c 24 |i%=.l$+1|....=.l$|
|00003b80| 2c 69 25 2d 31 29 0d 17 | e8 05 3a 0d 17 f2 21 dd |,i%-1)..|..:...!.|
|00003b90| f2 72 75 6e 5f 73 63 72 | 69 70 74 28 61 25 2c 73 |.run_scr|ipt(a%,s|
|00003ba0| 24 2c 64 24 2c 73 74 72 | 69 70 25 29 0d 17 fc 17 |$,d$,str|ip%)....|
|00003bb0| ea 20 62 25 2c 72 30 25 | 2c 72 31 25 2c 72 32 25 |. b%,r0%|,r1%,r2%|
|00003bc0| 2c 6c 25 0d 18 06 29 c8 | 99 22 57 69 6d 70 5f 53 |,l%...).|."Wimp_S|
|00003bd0| 6c 6f 74 53 69 7a 65 22 | 2c 2d 31 2c 2d 31 20 b8 |lotSize"|,-1,-1 .|
|00003be0| 20 72 30 25 2c 72 31 25 | 2c 72 32 25 0d 18 10 19 | r0%,r1%|,r2%....|
|00003bf0| 62 25 3d 8e 28 73 24 29 | 3a 6c 25 3d a2 23 62 25 |b%=.(s$)|:l%=.#b%|
|00003c00| 3a d9 23 62 25 0d 18 1a | 50 e7 72 32 25 3c 28 6c |:.#b%...|P.r2%<(l|
|00003c10| 25 2b 26 31 30 30 30 29 | 20 f2 69 6e 69 74 5f 73 |%+&1000)| .init_s|
|00003c20| 79 73 74 65 6d 3a f2 6f | 6b 28 22 4e 6f 74 20 65 |ystem:.o|k("Not e|
|00003c30| 6e 6f 75 67 68 20 66 72 | 65 65 20 6d 65 6d 6f 72 |nough fr|ee memor|
|00003c40| 79 20 74 6f 20 74 72 61 | 6e 73 6c 61 74 65 20 66 |y to tra|nslate f|
|00003c50| 69 6c 65 22 29 0d 18 24 | 33 c8 99 22 57 69 6d 70 |ile")..$|3.."Wimp|
|00003c60| 5f 53 6c 6f 74 53 69 7a | 65 22 2c 2d 31 2c 72 32 |_SlotSiz|e",-1,r2|
|00003c70| 25 3a f4 20 67 72 61 62 | 20 61 6c 6c 20 74 68 65 |%:. grab| all the|
|00003c80| 20 6d 65 6d 6f 72 79 21 | 0d 18 2e 1c c8 99 22 4f | memory!|......"O|
|00003c90| 53 5f 42 79 74 65 22 2c | 33 2c 25 31 31 30 20 b8 |S_Byte",|3,%110 .|
|00003ca0| 20 2c 62 25 0d 18 38 31 | c8 99 22 57 69 6d 70 5f | ,b%..81|.."Wimp_|
|00003cb0| 53 74 61 72 74 54 61 73 | 6b 22 2c 22 45 78 65 63 |StartTas|k","Exec|
|00003cc0| 20 3c 42 61 73 54 78 74 | 24 44 69 72 3e 2e 53 63 | <BasTxt|$Dir>.Sc|
|00003cd0| 72 69 70 74 22 0d 18 42 | 32 c8 99 22 57 69 6d 70 |ript"..B|2.."Wimp|
|00003ce0| 5f 53 6c 6f 74 53 69 7a | 65 22 2c 2d 31 2c 72 31 |_SlotSiz|e",-1,r1|
|00003cf0| 25 3a f4 20 72 65 73 74 | 6f 72 65 20 61 6c 6c 6f |%:. rest|ore allo|
|00003d00| 63 61 74 69 6f 6e 73 0d | 18 4c 14 c8 99 22 4f 53 |cations.|.L..."OS|
|00003d10| 5f 42 79 74 65 22 2c 33 | 2c 62 25 0d 18 56 19 c8 |_Byte",3|,b%..V..|
|00003d20| 99 22 4f 53 5f 46 69 6c | 65 22 2c 35 2c 64 24 20 |."OS_Fil|e",5,d$ |
|00003d30| b8 20 62 25 0d 18 60 0c | e7 62 25 3c 3e 31 20 8c |. b%..`.|.b%<>1 .|
|00003d40| 0d 18 6a 0c 20 e7 61 25 | 3d 31 20 8c 0d 18 74 2b |..j. .a%|=1 ...t+|
|00003d50| 20 20 f2 6f 6b 28 22 55 | 6e 61 62 6c 65 20 74 6f |  .ok("U|nable to|
|00003d60| 20 63 72 65 61 74 65 20 | 42 41 53 49 43 20 70 72 | create |BASIC pr|
|00003d70| 6f 67 72 61 6d 22 29 0d | 18 7e 06 20 cc 0d 18 88 |ogram").|.~. ....|
|00003d80| 20 20 20 e7 a4 73 74 72 | 69 70 5f 6e 75 6d 62 65 |   ..str|ip_numbe|
|00003d90| 72 73 20 80 20 73 74 72 | 69 70 25 20 8c 0d 18 92 |rs . str|ip% ....|
|00003da0| 5f 20 20 20 62 25 3d 28 | a4 77 61 72 6e 69 6e 67 |_   b%=(|.warning|
|00003db0| 28 22 42 41 53 49 43 20 | 70 72 6f 67 72 61 6d 20 |("BASIC |program |
|00003dc0| 6d 61 79 20 68 61 76 65 | 20 61 20 6c 69 6e 65 20 |may have| a line |
|00003dd0| 72 65 66 65 72 65 6e 63 | 65 2e 20 54 72 79 20 61 |referenc|e. Try a|
|00003de0| 67 61 69 6e 20 77 69 74 | 68 20 6c 69 6e 65 20 6e |gain wit|h line n|
|00003df0| 75 6d 62 65 72 73 3f 22 | 29 3d 31 29 0d 18 9c 0c |umbers?"|)=1)....|
|00003e00| 20 20 20 e7 62 25 20 8c | 0d 18 a6 1b 20 20 20 20 |   .b% .|....    |
|00003e10| e7 a4 66 61 73 74 5f 63 | 6f 6e 76 65 72 73 69 6f |..fast_c|onversio|
|00003e20| 6e 20 8c 0d 18 b0 17 20 | 20 20 20 20 f2 73 63 72 |n ..... |    .scr|
|00003e30| 69 70 74 32 28 73 24 2c | a3 29 0d 18 ba 09 20 20 |ipt2(s$,|.)....  |
|00003e40| 20 20 cc 0d 18 c4 17 20 | 20 20 20 20 f2 73 63 72 |  ..... |    .scr|
|00003e50| 69 70 74 31 28 73 24 2c | a3 29 0d 18 ce 09 20 20 |ipt1(s$,|.)....  |
|00003e60| 20 20 cd 0d 18 d8 1e 20 | 20 20 20 f2 72 75 6e 5f |  ..... |   .run_|
|00003e70| 73 63 72 69 70 74 28 32 | 2c 73 24 2c 64 24 2c a3 |script(2|,s$,d$,.|
|00003e80| 29 0d 18 e2 08 20 20 20 | cd 0d 18 ec 07 20 20 cc |)....   |.....  .|
|00003e90| 0d 18 f6 28 20 20 20 f2 | 6f 6b 28 22 55 6e 61 62 |...(   .|ok("Unab|
|00003ea0| 6c 65 20 74 6f 20 63 72 | 65 61 74 65 20 74 65 78 |le to cr|eate tex|
|00003eb0| 74 20 66 69 6c 65 22 29 | 0d 19 00 07 20 20 cd 0d |t file")|....  ..|
|00003ec0| 19 0a 06 20 cd 0d 19 14 | 05 cd 0d 19 1e 05 e1 0d |... ....|........|
|00003ed0| 19 28 05 3a 0d 19 32 14 | dd f2 73 63 72 69 70 74 |.(.:..2.|..script|
|00003ee0| 31 28 73 24 2c 66 25 29 | 0d 19 3c 08 ea 20 63 25 |1(s$,f%)|..<.. c%|
|00003ef0| 0d 19 46 1f 63 25 3d ae | 28 22 3c 42 61 73 54 78 |..F.c%=.|("<BasTx|
|00003f00| 74 24 44 69 72 3e 2e 53 | 63 72 69 70 74 22 29 0d |t$Dir>.S|cript").|
|00003f10| 19 50 1a d5 23 63 25 2c | 22 42 61 73 69 63 20 2d |.P..#c%,|"Basic -|
|00003f20| 6c 6f 61 64 20 22 2b 73 | 24 0d 19 5a 27 e7 a4 73 |load "+s|$..Z'..s|
|00003f30| 74 72 69 70 5f 6e 75 6d | 62 65 72 73 20 80 20 66 |trip_num|bers . f|
|00003f40| 25 20 d5 23 63 25 2c 22 | 4c 49 53 54 4f 20 38 22 |% .#c%,"|LISTO 8"|
|00003f50| 0d 19 64 22 d5 23 63 25 | 2c 22 53 59 53 36 2c 32 |..d".#c%|,"SYS6,2|
|00003f60| 32 39 2c 30 3a 53 59 53 | 36 2c 33 2c 25 31 30 30 |29,0:SYS|6,3,%100|
|00003f70| 30 22 0d 19 6e 0f d5 23 | 63 25 2c 22 4c 49 53 54 |0"..n..#|c%,"LIST|
|00003f80| 22 0d 19 78 33 d5 23 63 | 25 2c 22 53 59 53 36 2c |"..x3.#c|%,"SYS6,|
|00003f90| 32 32 39 2c 31 3a 53 59 | 53 36 2c 33 2c 25 31 31 |229,1:SY|S6,3,%11|
|00003fa0| 30 3a 53 59 53 26 34 30 | 30 45 46 2c 2d 31 3a 51 |0:SYS&40|0EF,-1:Q|
|00003fb0| 55 49 54 22 0d 19 82 08 | d9 23 63 25 0d 19 8c 05 |UIT"....|.#c%....|
|00003fc0| e1 0d 19 96 05 3a 0d 19 | a0 14 dd f2 73 63 72 69 |.....:..|....scri|
|00003fd0| 70 74 32 28 73 24 2c 66 | 25 29 0d 19 aa 08 ea 20 |pt2(s$,f|%)..... |
|00003fe0| 63 25 0d 19 b4 1f 63 25 | 3d ae 28 22 3c 42 61 73 |c%....c%|=.("<Bas|
|00003ff0| 54 78 74 24 44 69 72 3e | 2e 53 63 72 69 70 74 22 |Txt$Dir>|.Script"|
|00004000| 29 0d 19 be 1a d5 23 63 | 25 2c 22 42 61 73 69 63 |).....#c|%,"Basic|
|00004010| 20 2d 6c 6f 61 64 20 22 | 2b 73 24 0d 19 c8 34 e7 | -load "|+s$...4.|
|00004020| a4 73 74 72 69 70 5f 6e | 75 6d 62 65 72 73 20 80 |.strip_n|umbers .|
|00004030| 20 66 25 20 d5 23 63 25 | 2c 22 54 57 49 4e 4f 38 | f% .#c%|,"TWINO8|
|00004040| 22 20 8b 20 d5 23 63 25 | 2c 22 54 57 49 4e 22 0d |" . .#c%|,"TWIN".|
|00004050| 19 d2 1c d5 23 63 25 2c | 22 53 59 53 26 34 30 30 |....#c%,|"SYS&400|
|00004060| 45 46 2c 2d 31 3a 51 55 | 49 54 22 0d 19 dc 08 d9 |EF,-1:QU|IT".....|
|00004070| 23 63 25 0d 19 e6 05 e1 | 0d 19 f0 05 3a 0d 19 fa |#c%.....|....:...|
|00004080| 14 dd f2 73 63 72 69 70 | 74 33 28 73 24 2c 64 24 |...scrip|t3(s$,d$|
|00004090| 29 0d 1a 04 08 ea 20 63 | 25 0d 1a 0e 1f 63 25 3d |)..... c|%....c%=|
|000040a0| ae 28 22 3c 42 61 73 54 | 78 74 24 44 69 72 3e 2e |.("<BasT|xt$Dir>.|
|000040b0| 53 63 72 69 70 74 22 29 | 0d 1a 18 1a d5 23 63 25 |Script")|.....#c%|
|000040c0| 2c 22 42 61 73 69 63 20 | 2d 6c 6f 61 64 20 22 2b |,"Basic |-load "+|
|000040d0| 73 24 0d 1a 22 1b d5 23 | 63 25 2c 22 53 41 56 45 |s$.."..#|c%,"SAVE|
|000040e0| 20 22 2b bd 33 34 2b 64 | 24 2b bd 33 34 0d 1a 2c | "+.34+d|$+.34..,|
|000040f0| 1c d5 23 63 25 2c 22 53 | 59 53 26 34 30 30 45 46 |..#c%,"S|YS&400EF|
|00004100| 2c 2d 31 3a 51 55 49 54 | 22 0d 1a 36 08 d9 23 63 |,-1:QUIT|"..6..#c|
|00004110| 25 0d 1a 40 05 e1 0d 1a | 4a 05 3a 0d 1a 54 0c dd |%..@....|J.:..T..|
|00004120| a4 63 72 6d 65 6e 75 0d | 1a 5e 1a ea 20 4d 25 2c |.crmenu.|.^.. M%,|
|00004130| 6d 65 6e 75 24 2c 6d 24 | 2c 49 25 2c 6d 61 78 78 |menu$,m$|,I%,maxx|
|00004140| 25 0d 1a 68 36 e7 20 28 | 6d 65 6e 75 66 72 65 65 |%..h6. (|menufree|
|00004150| 25 2b 32 38 3e 6d 65 6e | 75 65 6e 64 25 29 20 f2 |%+28>men|uend%) .|
|00004160| 66 61 74 61 6c 28 22 4d | 65 6e 75 20 61 72 65 61 |fatal("M|enu area|
|00004170| 20 66 75 6c 6c 22 29 0d | 1a 72 0b f3 20 6d 65 6e | full").|.r.. men|
|00004180| 75 24 0d 1a 7c 15 c8 95 | 20 c2 6d 65 6e 75 24 2c |u$..|...| .menu$,|
|00004190| 32 29 3d 22 2b 2b 22 0d | 1a 86 09 20 f3 20 6d 24 |2)="++".|... . m$|
|000041a0| 0d 1a 90 1e 20 6d 65 6e | 75 24 3d c0 6d 65 6e 75 |.... men|u$=.menu|
|000041b0| 24 2c a9 6d 65 6e 75 24 | 2d 32 29 2b 6d 24 0d 1a |$,.menu$|-2)+m$..|
|000041c0| 9a 05 ce 0d 1a a4 16 6d | 65 6e 75 70 74 72 25 3d |.......m|enuptr%=|
|000041d0| 6d 65 6e 75 66 72 65 65 | 25 0d 1a ae 08 49 25 3d |menufree|%....I%=|
|000041e0| 30 0d 1a b8 15 e7 20 c0 | 6d 65 6e 75 24 2c 31 29 |0..... .|menu$,1)|
|000041f0| 3d 22 23 22 20 8c 0d 1a | c2 09 20 49 25 3d 31 0d |="#" ...|.. I%=1.|
|00004200| 1a cc 19 20 6d 65 6e 75 | 74 69 74 6c 65 24 3d a4 |... menu|title$=.|
|00004210| 70 61 72 28 22 2c 22 29 | 0d 1a d6 05 cc 0d 1a e0 |par(",")|........|
|00004220| 12 20 6d 65 6e 75 74 69 | 74 6c 65 24 3d 22 22 0d |. menuti|tle$="".|
|00004230| 1a ea 05 cd 0d 1a f4 18 | 24 6d 65 6e 75 70 74 72 |........|$menuptr|
|00004240| 25 3d 6d 65 6e 75 74 69 | 74 6c 65 24 0d 1a fe 11 |%=menuti|tle$....|
|00004250| 6d 65 6e 75 70 74 72 25 | 3f 31 32 3d 37 0d 1b 08 |menuptr%|?12=7...|
|00004260| 11 6d 65 6e 75 70 74 72 | 25 3f 31 33 3d 32 0d 1b |.menuptr|%?13=2..|
|00004270| 12 11 6d 65 6e 75 70 74 | 72 25 3f 31 34 3d 37 0d |..menupt|r%?14=7.|
|00004280| 1b 1c 11 6d 65 6e 75 70 | 74 72 25 3f 31 35 3d 30 |...menup|tr%?15=0|
|00004290| 0d 1b 26 13 6d 65 6e 75 | 70 74 72 25 21 31 36 3d |..&.menu|ptr%!16=|
|000042a0| 31 39 36 0d 1b 30 12 6d | 65 6e 75 70 74 72 25 21 |196..0.m|enuptr%!|
|000042b0| 32 30 3d 34 34 0d 1b 3a | 11 6d 65 6e 75 70 74 72 |20=44..:|.menuptr|
|000042c0| 25 21 32 34 3d 30 0d 1b | 44 10 6d 65 6e 75 70 74 |%!24=0..|D.menupt|
|000042d0| 72 25 2b 3d 32 38 0d 1b | 4e 17 6d 61 78 78 25 3d |r%+=28..|N.maxx%=|
|000042e0| a9 6d 65 6e 75 74 69 74 | 6c 65 24 2d 33 0d 1b 58 |.menutit|le$-3..X|
|000042f0| 05 f5 0d 1b 62 14 20 69 | 74 65 6d 24 3d a4 70 61 |....b. i|tem$=.pa|
|00004300| 72 28 22 2c 22 29 0d 1b | 6c 15 20 f2 6d 65 6e 75 |r(",")..|l. .menu|
|00004310| 69 74 65 6d 28 69 74 65 | 6d 24 29 0d 1b 76 0e fd |item(ite|m$)..v..|
|00004320| 20 69 74 65 6d 24 3d 22 | 22 0d 1b 80 10 4d 25 3d | item$="|"....M%=|
|00004330| 6d 65 6e 75 66 72 65 65 | 25 0d 1b 8a 17 4d 25 21 |menufree|%....M%!|
|00004340| 31 36 3d 28 6d 61 78 78 | 25 2a 38 2b 36 29 2a 32 |16=(maxx|%*8+6)*2|
|00004350| 0d 1b 94 16 6d 65 6e 75 | 66 72 65 65 25 3d 6d 65 |....menu|free%=me|
|00004360| 6e 75 70 74 72 25 0d 1b | 9e 07 3d 4d 25 0d 1b a8 |nuptr%..|..=M%...|
|00004370| 05 3a 0d 1b b2 15 dd f2 | 6d 65 6e 75 69 74 65 6d |.:......|menuitem|
|00004380| 28 74 65 78 74 24 29 0d | 1b bc 0e ea 20 49 25 2c |(text$).|.... I%,|
|00004390| 46 25 2c 4c 25 0d 1b c6 | 10 e7 20 74 65 78 74 24 |F%,L%...|.. text$|
|000043a0| 3d 22 22 20 8c 0d 1b d0 | 24 20 6d 65 6e 75 70 74 |="" ....|$ menupt|
|000043b0| 72 25 21 2d 32 34 3d 28 | 6d 65 6e 75 70 74 72 25 |r%!-24=(|menuptr%|
|000043c0| 21 2d 32 34 29 84 26 38 | 30 0d 1b da 06 20 e1 0d |!-24).&8|0.... ..|
|000043d0| 1b e4 05 cd 0d 1b ee 35 | e7 20 6d 65 6e 75 70 74 |.......5|. menupt|
|000043e0| 72 25 2b 32 34 20 3e 20 | 6d 65 6e 75 65 6e 64 25 |r%+24 > |menuend%|
|000043f0| 20 f2 66 61 74 61 6c 28 | 22 4d 65 6e 75 20 61 72 | .fatal(|"Menu ar|
|00004400| 65 61 20 66 75 6c 6c 22 | 29 0d 1b f8 0a 46 25 3d |ea full"|)....F%=|
|00004410| 26 30 30 0d 1c 02 29 e7 | 20 c2 74 65 78 74 24 2c |&00...).| .text$,|
|00004420| 31 29 3d 22 23 22 20 74 | 65 78 74 24 3d c0 74 65 |1)="#" t|ext$=.te|
|00004430| 78 74 24 29 3a 46 25 2b | 3d 26 30 32 0d 1c 0c 29 |xt$):F%+|=&02...)|
|00004440| e7 20 c2 74 65 78 74 24 | 2c 31 29 3d 22 40 22 20 |. .text$|,1)="@" |
|00004450| 74 65 78 74 24 3d c0 74 | 65 78 74 24 29 3a 46 25 |text$=.t|ext$):F%|
|00004460| 2b 3d 26 30 38 0d 1c 16 | 11 6d 65 6e 75 70 74 72 |+=&08...|.menuptr|
|00004470| 25 21 30 3d 46 25 0d 1c | 20 11 6d 65 6e 75 70 74 |%!0=F%..| .menupt|
|00004480| 72 25 21 34 3d 2d 31 0d | 1c 2a 18 6d 65 6e 75 70 |r%!4=-1.|.*.menup|
|00004490| 74 72 25 21 38 3d 26 30 | 37 30 30 30 30 32 31 0d |tr%!8=&0|7000021.|
|000044a0| 1c 34 15 e7 20 c0 74 65 | 78 74 24 2c 31 29 3d 22 |.4.. .te|xt$,1)="|
|000044b0| 24 22 20 8c 0d 1c 3e 13 | 20 49 25 3d a7 74 65 78 |$" ...>.| I%=.tex|
|000044c0| 74 24 2c 22 28 22 29 0d | 1c 48 0d 20 e7 20 49 25 |t$,"(").|.H. . I%|
|000044d0| 3e 30 20 8c 0d 1c 52 16 | 20 20 4c 25 3d bb c1 74 |>0 ...R.|  L%=..t|
|000044e0| 65 78 74 24 2c 49 25 2b | 31 29 0d 1c 5c 18 20 20 |ext$,I%+|1)..\.  |
|000044f0| 74 65 78 74 24 3d c0 74 | 65 78 74 24 2c 49 25 2d |text$=.t|ext$,I%-|
|00004500| 31 29 0d 1c 66 06 20 cc | 0d 1c 70 0b 20 20 4c 25 |1)..f. .|..p.  L%|
|00004510| 3d 31 32 0d 1c 7a 06 20 | cd 0d 1c 84 13 20 21 6d |=12..z. |..... !m|
|00004520| 65 6e 75 70 74 72 25 2b | 3d 26 30 34 0d 1c 8e 15 |enuptr%+|=&04....|
|00004530| 20 6d 65 6e 75 70 74 72 | 25 21 38 2b 3d 26 31 30 | menuptr|%!8+=&10|
|00004540| 30 0d 1c 98 1b 20 6d 65 | 6e 75 70 74 72 25 21 31 |0.... me|nuptr%!1|
|00004550| 32 3d a0 c1 74 65 78 74 | 24 2c 32 29 0d 1c a2 13 |2=..text|$,2)....|
|00004560| 20 6d 65 6e 75 70 74 72 | 25 21 31 36 3d 2d 31 0d | menuptr|%!16=-1.|
|00004570| 1c ac 13 20 6d 65 6e 75 | 70 74 72 25 21 32 30 3d |... menu|ptr%!20=|
|00004580| 4c 25 0d 1c b6 11 20 e7 | 4c 25 3e 31 36 20 4c 25 |L%.... .|L%>16 L%|
|00004590| 3d 31 36 0d 1c c0 13 20 | 74 65 78 74 24 3d c4 4c |=16.... |text$=.L|
|000045a0| 25 2c 22 20 22 29 0d 1c | ca 05 cc 0d 1c d4 11 20 |%," ")..|....... |
|000045b0| e7 a9 74 65 78 74 24 3c | 3d 31 32 8c 0d 1c de 1a |..text$<|=12.....|
|000045c0| 20 20 24 28 6d 65 6e 75 | 70 74 72 25 2b 31 32 29 |  $(menu|ptr%+12)|
|000045d0| 3d 74 65 78 74 24 0d 1c | e8 06 20 cc 0d 1c f2 1d |=text$..|.. .....|
|000045e0| 20 20 49 25 3d a4 77 6f | 72 6b 73 70 61 63 65 28 |  I%=.wo|rkspace(|
|000045f0| a9 74 65 78 74 24 2b 31 | 29 0d 1c fc 0f 20 20 24 |.text$+1|)....  $|
|00004600| 49 25 3d 74 65 78 74 24 | 0d 1d 06 22 20 20 6d 65 |I%=text$|..."  me|
|00004610| 6e 75 70 74 72 25 21 38 | 3d 6d 65 6e 75 70 74 72 |nuptr%!8|=menuptr|
|00004620| 25 21 38 20 84 20 26 31 | 30 30 0d 1d 10 14 20 20 |%!8 . &1|00....  |
|00004630| 6d 65 6e 75 70 74 72 25 | 21 31 32 3d 49 25 0d 1d |menuptr%|!12=I%..|
|00004640| 1a 14 20 20 6d 65 6e 75 | 70 74 72 25 21 31 36 3d |..  menu|ptr%!16=|
|00004650| 2d 31 0d 1d 24 1a 20 20 | 6d 65 6e 75 70 74 72 25 |-1..$.  |menuptr%|
|00004660| 21 32 30 3d a9 74 65 78 | 74 24 2b 31 0d 1d 2e 06 |!20=.tex|t$+1....|
|00004670| 20 cd 0d 1d 38 05 cd 0d | 1d 42 1f e7 20 a9 74 65 | ...8...|.B.. .te|
|00004680| 78 74 24 3e 6d 61 78 78 | 25 20 6d 61 78 78 25 3d |xt$>maxx|% maxx%=|
|00004690| a9 74 65 78 74 24 0d 1d | 4c 10 6d 65 6e 75 70 74 |.text$..|L.menupt|
|000046a0| 72 25 2b 3d 32 34 0d 1d | 56 05 e1 0d 1d 60 05 3a |r%+=24..|V....`.:|
|000046b0| 0d 1d 6a 0f dd a4 70 61 | 72 28 73 65 70 24 29 0d |..j...pa|r(sep$).|
|000046c0| 1d 74 08 ea 20 4c 25 0d | 1d 7e 0b 4c 25 3d 49 25 |.t.. L%.|.~.L%=I%|
|000046d0| 2b 31 0d 1d 88 1b 49 25 | 3d a7 6d 65 6e 75 24 2b |+1....I%|=.menu$+|
|000046e0| 73 65 70 24 2c 73 65 70 | 24 2c 4c 25 29 0d 1d 92 |sep$,sep|$,L%)...|
|000046f0| 15 3d c1 6d 65 6e 75 24 | 2c 4c 25 2c 49 25 2d 4c |.=.menu$|,L%,I%-L|
|00004700| 25 29 0d 1d 9c 05 3a 0d | 1d a6 13 dd a4 77 6f 72 |%)....:.|.....wor|
|00004710| 6b 73 70 61 63 65 28 4c | 25 29 0d 1d b0 36 e7 20 |kspace(L|%)...6. |
|00004720| 63 75 72 77 73 25 2b 4c | 25 3e 77 73 25 2b 6d 61 |curws%+L|%>ws%+ma|
|00004730| 78 77 73 25 20 f2 66 61 | 74 61 6c 28 22 4e 6f 20 |xws% .fa|tal("No |
|00004740| 6d 6f 72 65 20 77 6f 72 | 6b 73 70 61 63 65 22 29 |more wor|kspace")|
|00004750| 0d 1d ba 0e 63 75 72 77 | 73 25 2b 3d 4c 25 0d 1d |....curw|s%+=L%..|
|00004760| c4 0e 3d 63 75 72 77 73 | 25 2d 4c 25 0d 1d ce 05 |..=curws|%-L%....|
|00004770| 3a 0d 1d d8 1b dd f2 61 | 74 74 61 63 68 5f 6d 65 |:......a|ttach_me|
|00004780| 6e 75 28 6d 25 2c 6f 25 | 2c 70 25 29 0d 1d e2 17 |nu(m%,o%|,p%)....|
|00004790| 21 28 6d 25 2b 32 38 2b | 6f 25 2a 32 34 2b 34 29 |!(m%+28+|o%*24+4)|
|000047a0| 3d 70 25 0d 1d ec 05 e1 | 0d ff                   |=p%.....|..      |
+--------+-------------------------+-------------------------+--------+--------+